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ASSEMBLER PARA O MSX 


Os montadores são programas tradutores que con- 
vertem os programas-fonte, escritos em Assembler, 
em programas-objeto, codificados em linguagem 
de máquina. Como calcular saltos e desvios. Use 
POKE para colocar os códigos na memória do 
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GRÁFICOS INSTANTÂNEOS 





Como transformar desenhos em fileiras de núme- 
ros binários. Conversões de binário para decimal 
e para hexadecimal. Veja como é fácil animar jo- 
gos com figuras simples mesmo sem entender na- 
de de sistema DINÁMiO cics essicsavosesco 406 


UM ASSISTENTE DE ARTE 





Desenhe com a ajuda do computador, executan- 
do o programa apresentado nesta lição. Você po- 
de não chegar a ser um Picasso ou um Leonardo 
da Vinci, mas desenhará com desenvoltura auxi- 
liado pelo seu micro doméstico .............. 414 
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Como já foi dito em artigos destina- 
dos a outros computadores, montar um 
programa em linguagem de máquina, 
calculando os códigos a mão, pode ser 
bem cansativo. Ainda que se saiba de 
cor todos os códigos mnemônicos e seus 
equivalentes hexadecimais e se esteja fa- 
miliarizado com os modos de endereça- 
mento, o trabalho de tradução e trans- 
ferência do programa para o computa- 
dor é sempre tedioso e possivel de erros. 

Já que computadores são muito bons 
nesse tipo de trabalho, por que não usá- 
los para fazer a tradução? De fato, só 
teriamos a ganhar se fizéssemos Isso, 
pois o mesmo programa poderia ainda 
ser usado para colocar o programa em 
código na memória. 

O programa apresentado neste arti- 
go é bem parecido com o Assembler pa- 
ra o ZX Spectrum. Isto se deve ao fato 
de os dois computadores usarem o mi- 
croprocessador Z-80. 

Constituído em BASIC, esse progra- 
ma é bem mais lento do que os que são 

feitos em código de máquina (estes 
últimos podem ser facilmente 
encontrados nas lojas espe- 
cializadas). Todavia, ele 
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funciona muito bem, embora devamos es- 
perar algum tempo para que programas 
longos sejam montados na memória. 


Is 


5000 CLS:KEYOFF:LOCATEB,10:PRIN 
T"Um instante, por favor" :CLEAR 
500,.HDFFF:DIM K5$(110),K(110),M 
(110) :E5="01234567B9ABCDEF":BS= 
"".058="0123456789abcdef” 

5010 DIMTS(100).R(100),2Z3(100), 


Os montadores são programas tradutores 
- encarregados de converter os 
programas-fonte, escritos em Assembly 
em programas-objeto, codificados 

em linguagem de máquina. 


q e ms o 


Z (100) 

5020 B(1)=1:FORI=2TO9:B(I)J=B(T 
1)+B(I-1):NEXT 

5030 DIMRS(8,4):FORJ=1TO4:FORT-= 
1TO8B:READAS (IT, J) :RS(I,J)=LEFTS( 
AS(T,J)+" ",4):NEXTI,J 


Es— - 


5040 DATA 0,1,2,3,4,5,6,7,nz,z 


nc,c,po,pe,p,m,0,8,16,24,32,40 
48,56,hl,ix,iv.bc,de,hl,sp,” 
5050 DIMSS(B,2),T(18),US(18):FO 
RJ=1T02:FORI=1TO8/J:READSS(I,J) 
“SS (1I,J)=LEFTS(SS(1I,]J)+" ",4 
J:NEXTI,J:FORJ=1TOlLB:READT(J).U 
5060 DATA b,c,d,e,h,l, (hl),a,be 
«de,hl,9sp,235,de,8,af,227, (ap) 
60742,0,60758,1,60766,2,233,(h1 











O que acontecerá se houver um er- 
ro em meu programa-fonte? 

Nosso Assembler é capaz de emi- 
tir mensagens de erro, pois a sua es- 
trutura de programação permite re- 

| conhecer certas falhas no programa 
em Assembly. Alguns comandos, por 
exemplo, só trabalham com os regis- 

“tros ae hi. Se tentarmos usá-los com 
outros registros, o Assembler dirá: 
"Primeiro operando deve ser a ou hi”. 

| Se um comando não for reconheci- 
do devido a um erro de digitação, se- 
remos informados: “Linha não reco- 
nhecida''. A expressão “Deve haver 
dois operandos” significa que deixa- 

| mos de digitar um número vital após o 
comando. “Operando incompatível” 
indica um uso inadequado do coman- 
do. “Primeiro operando deve ser sina- 

| lizador ou bit” significa que um 
operando inadequado foi empregado | 
em um comando de desvio ou de atri- | 
buição de bits. 


),56809, (1x) ,65001, (iwy),10, (bc) 
,26, (de) ,60767,r,2, (bc),18, (de) 
,60751,r,249,9p,60743,1,60/59,1 
5070 DEFENB(X, I)=INT(X/B(1I+1))- 
INT (X/B(1+2))*2 

5080 DEFENX(X,I)=X-B(1+2) *ENB(X 
+ I)+B(I+L) 

5090 DEFFNJ(X, I)=INT(X)-B(I+1)* 
INT (X/B(1+1)) 

5100 DEFFNE(IS,J$)=(IS=LEFTS(JS 
«LEN(IS))) 

5110 FORI=1TOL1LO:READKS(I),K(I) 
«M(I) : IFNOTENE ("*",KS(I)) THENNE 
XTI 

5120 DATA 19,10,10,1d,26,10,1d, 
60767,10,14,60759,10,1d,2,138,1 
d,18,138,1d,60751,138,1d,60743, 
AB 1d, 646) ld, dO dis a 
19,249,139,1d,34,195,1d,42,67,1 
d,60779,197,1d,60771,199,19,97, 
165,1d,64,54 

5130 DATA adc,136,50,adc,60746, 
3,add,128,50,add,9,149,and,160, 
48,0r,176,48,xor,168,48,nop,0,0 
, pub, 144,48,8bc,152,50,8bc,60/7/3 
8,3,cp,184,48,3p,130,45,5p,233, 
9,4p,56809,9,4p,65001,9,3p,131, 
49,3r,96,45,3r,88,41: 

5140 DATA call,132,45,call,141, 
4l,ret,201,0,d5jnz,74,40,dec,ll, 
17, dec,5,16, inc,3,17,inc,4,16,D 
uzh,197,17,pop,193,17,dMi,243,0, 
ei,251,0,halt,118,0,ex,235,139, 
ex,8,15,ex,227,143,exx,217,0 
5150 DATA rãt,199,132,rta,192,5 
,bit,52032,20,defb,-256,40,ccf, 
63,0,9cf,55,0,cpl,47,0,cpd,6084 


.TTAB(10)" (9) 


1,0,cpdr,60857,0,cpi,60833,0,cp 
ir,60849,0,daa,39,0,im,60742,8, 
1m,60758,8,im,60766,8 

5160 DATA in,60736,130,1n,149,4 
2,ind,60848,0, indr,60810,0,ini, 
60840,0,inir,60850,0,1dd,60840, 
O, Iddr,60856,0,1di,60832,0, ldir 
,60848,0,neqg,60740,0,0tdr,60859 
-O,otir,60851,0,0uUt,60737,2,0uL 
,141,170,0utd,60843,0,0uti,6083 
5,0 

5170 DATA res,52096,20,reti,607 


49,0,retn,60741,0,r1,51984,64,r 


1a,23,0,rlc,51968, 16,rlca,7,0,r 
1d,60783,0,rr,51992,64,rra,31,0 
«rrc,51976,16,rrca,15,0,rrd,607 
75,0 

5180 DATA set,52160,20,81a,5200 
0,16,0ra,52008,16,9r1l,52024,16, 
defw,-256,41 

5190 DATA "*”",0,0:1II=1I:K(110)=I 


I 
5200 CLS: PRINTTAB (15) "ASSEMBLER 
".LOCATEIO,5: PRINTTAB(10)" (c) 
Ler na fita cassete”: PRINT:PRIN 
Gravar na fita”:P 
RINT:PRINTTAB(10)" (e) Edição” 
5210 PRINT:PRINTTAB(10)" (m) Mo 
ntar”:PRINT:PRINTTAB(10)" (a) A 
pagar linha”:PRINT: PRINTTAB(10) 
"(1) Listar"”:PRINT:PRINTTAB (IO 
1" (a) Saída” 
5220 AS=INKEYS: IFAS=""THEN5S220 
5230 JJ=INSTR("cgemals”,AS) 
5240 IFJJ=0THENPRINT"<S"AS"> 77? 
7". FORJ=1T0500:NEXT:G0TO05200 
5250 CLS:0NJJG08SUB10420,10450,1 
0490,5290,10710,10760,10900 
5260 PRINT:PRINT"Qualquer tecla 
para continuar” 
5270 AS=INKEYS: IFAS=""THEN5270 
5280 GOT0O5200 
5290 FORG=1T0100:R(G)=G-1:NEXTG 
'Fh=100 
5300 K0=0:K9=99:P0=0:VV=0 
5310 K=KO: P=PO 
5320 GoOsSUB8000 
5330 GOSUB7000:05=IS: IFLEFTS(OS 
(1)="*" THENPRINTOS; :GOTO5320 
5340 IFO09="end"THENPRINT: PRINT” 
FIM. Endereço final = ";P-1 
5350 IF08="end"THENPO=P: RETURN 
5370 IFOS<>"org"THEN5S400 
5380 GOSUB7000:5=0: IFLEFTS$S (15,1 
)j="*"THENS=P: IS=RIGHTS (IS,LEN(I 
8)-1) 


5390 P=VAL (18) +S: PRINT” orq 
":P;:G0TO5320 
5400 IFP=OTHENPRINT”" (falta org 


)":P=2HE000 

5410 P$=08+"!":FORI=1+1B*ABS (OS 
<>" 1d") TOLlLO: IFOS<=KS (1) ANDPS2K 
S (1) THEN5500 

5420 NEXTI: PRINTOS 

5430 IFLEFTS(18,1)="."THENIS=RI 
GHTS (I8,LEN(IS)-1) 

5440 GOSUB9000:GG=R (6) 

5450 IFABS (66) <=100THENS=SGN (Z( 
GG)) :B=INT (ABS(Z(GG))/65536!):R 
=ABS (Z (66) )-B*65536! :Q=PEEK (R)+ 
256*PEEK (R+1) : POKER, FNJ (P*5+0,8 
) : PRINT” colocando ";FN J(P*S+Q 
,8);” em ";R:IFBTHENPOKE (R+1),F 





NJ( (P*8+0) /256,8) : PRINT” coloca 
ndo ";FNJ((P*5+0)/256,8);" em * 
“B+1 

5460 IFABS (GG) <=100THENGH=A (GG) 
:R(GG) =FH: FH=GG:GG=GH:GOTO5450 
5470 IFIS=""THENA (G) =P+100:GOTO 
5330 

5480 PRINT” 
ida)” 

5490 G0T05420 

5500 Z=0:8R=0:E=0:PRINT" 


(Linha não reconhec 


"108 


5510 0P=K(I):IFM(I)=0THEN6090 
5520 GOSUB7000:AS=IS:PRINT” ";A 
8: 

5530 M=M(I):0P=K(I):B=FNB(M,O): 
B7=B+2*xFNB(M,7)+1:Z=0:IFENJ(M,3 
)J<2THENCS=AS:G0TO5720 

5540 FORJ=1ITOLEN(AS): IFMIDS (AS, 
J,1)=","THEN5S5BO 

5550 NEXTJ:IFO0$="rst"0ROS="rta” 
THEN5S5SBO 

5560 IFFNE(0S,KS(1+1)) THENI=1+1 
*G0OTO5530 

5570 PRINT” (mão necessários do 
is operandos)" :GOTO5S320 

5580 BS=LEFTS(AS,J-1):CS=RIGHTS 
(AS, LEN(AS) -J) 

5590 IFFNB(M,2) THEN5S650 

5600 IFFNB(M,7) THENDS=CS:CS=BS: 
B5=DS 

5610 IFBS=MIDS("ahl",B+1,B+1)TH 
EN5720 

5620 IFBS=" (c)"AND(05="in"0OROS= 
"out”) THEN5S720 

5630 IF(FNE(OS,KS(I+1)))AND(FNJ 
(M(1+1),3)>=2) THENI=I1+1:G0TO553 
0 

5640 PRINT” (primeiro operando 
deve ser a ou h1l)”":GOTO5320 
5650 IFFNB(M,1)THEN5690 

5660 ES=LEFTS (B5+" ",4): FORJ= 
1TOB: IFES=RS (J,B7) THENOP=0P+B*( 
J-1)*ABS (B7<4)+16* (J-6) *ABS (B7= 
4)*ABS(J>3):Z=(J-1)*ABS(B7=4)*A 
BS (J<=3) :G0T0O5710 

5670 NEXTJ: IFPS>KS(I+1)AND(EN J 
(M(1+1),3)>=2) THENI=1+1:G0TO553 


0 

5680 PRINT” (primeiro operando 

deve ser sinalizador ou bit)J”:G 
0T0O5320 

5690 IFFNB(M,7) THEND$S=CS:CS=BS: 
B$=D$:GOTO5660 

5700 X=8:GOSUB5750:IFETHEN5S730 

5710 IFC$=""THEN6090 

5720 X=1+15*B+7*ABS (0P<=6ANDOP> 
=40RB$S=" (C)"):BS=CS:GOSUB 5750: 
IFABS ( (E=0) *«NOTE) THEN6090 

5730 IFE=20RPS>KS (1+1) ANDFNJ (M( 
1+1),3)=FNJ (ENX(M,0),3) THENE=0: 
I=1+1:6G0T05530 

5740 GOTO5320 

5750 B=0:IFFNEB(M,4) ANDFNE (LEFTS3 
(" (", ABS ( (B=0) *NOTB)),BS) THENZZ 
-ABS (FNE (" ix”, RIGHTS (BS, LEN(BS) 
+B-1)+”" "))+2*ABS (FNE ("iy”,RIGH 
TS (BS, LEN(B9)+B-1)+”" ")):IFZ2TH 
ENZ=Z2:ES=LEFTS (B$S,LEN(B3)-ABS( 
(B=0) *«NOTB)) :B$=MIDS(" (h1l)”,1+B 
/4-2*B) :F8="0"+RIGHTS (ES, LEN(ES 
)J+B-3) 

5760 IFFNB(M,3) THEN5790 








5770 ES=LEFTS (BS+” 
1TOB/ (B+1): IFE$=SS5 (J,B+1) THENOP 
=0P+ (J-1) *X: RETURN 

5780 G0TO5B10 

5790 J2=9+9*ABS (08=" 19") :FORJ=J 
2-BTOJZ:IFK(I)<>T(J) THEN5S81O0 
5800 IFFNE (BS,US (J)) THENRETURN 
5810 NEXTJ:IFBS="af"THENIFFNE (” 
p”",08) THENOP=0P+48: RETURN 

5820 IFFENB(M,6) ANDFNE(" (”,BS)TH 
ENBS=MIDS (BS, 2,LEN(B$)-2) :GOTO5 
B60 

5830 IFFNB(M,5) THENOP=FNX (0P+6* 
ABS ( (B=0) *NOT B),6):GOTOSB60 
5840 IFPS>KS (1+1) THENE=2:RETURN 
5850 PRINT” (operando incompatí 
vel)”: E=1:RETURN 

5860 R=65536! 

5870 S=1 

5880 IFB$=""THEN6080 

5890 XS=LEFTS (BS,1):DS=RIGHTS(B 
S,LEN(BS)-1): IFXS$="*"THENR=A+P* 
S:B$S=DS:GOTO5B70 

5900 IFXS="+"THENBS=DS:GOTOSBB0 
5910 IFXS="-"THENB5S=DS:5=-5:GOT 
05880 

5920 IFX$="""THENAR=R+ASC (D$S)*5: 
B$=RIGHTS (DS, LEN(DS)-1) :G0T0O587 
Õ 

5930 0=0:IFXS<>" 1" 0ORDS<"0"ORDS> 
="2"THEN5960 

5940 IFDS>=" 0" ANDDS<" 2" THENQ=Q* 
Z+ASC (DS) -48:DS=RIGHTS (DS, LEN(D 
8)-1):60T05940 

5950 A=R+0Q*S5:B$=D5:GOTO5870 
5960 IFXS<>"S"0ORDS<"0"ORDS>="q" 
THEN600DO 

5970 XS=CHAS (ASC(DS)) :FORG=0TOL 
5: IFXS<>MIDS (HS,G+1,1) ANDXSS2MI 
D3 (68,6+1,1) THEN5990 

5980 0=0*16+G:DS=RIGHTS (DS, LEN( 
D$S)-1):G0T05970 

5990 NEXTG:R=R+0*5:B5=DS:GOTO5SB 
70 

6000 IFxS<"a"0RX5>"z”"THEN6040 
6010 I8=BS:G0SUB9000:IFIS<>2""TH 
EN6010:GOSUB9400 

6020 IFR(G) <>23000ANDABS (R(G))> 
100THENA=B+ (R(G)-100)*S:BS=I15:G 
oT0O5870 

6030 IFR(G)=230000RABS (R(G))<=1 
00THENGH=A (FH) :R(FH)=R(G) :R(G)= 
FH:FH=GH:Z(R(G))=(P+SGN(0P)+ABS 
(ABS (0P)>255) +2*ABS (Z>0)+65536! 
*ABS ( ( (ABS (BORFNB (M,6))<20) *1)A 
ND(08<>"5)r”")))*S:B$S=I5:GOT0O58B7/0 
6040 IFXS<"0"0RX58>"9"THENR=0:GO 
T06070 

6050 IFBS>="0" ANDBS<” :"THENQ=0* 
10+ASC(BS$)-48B:BS=RIGHTS (BS, LEN( 
B$)-1):G0T0O6050 

6060 R=R+5*Q:GOTO5B70 

6070 PRINT” (endereçamento invá 
lido)” 

6080 R=B-(P+2) *ABS (05="djnz"0ORO 
$="3r") :RETURN 

6090 PRINTTAB (16); :BY=P/256:G05 
UB6190: BY=P:GOSUB6190:GOSUB616 


Q 

6100 IFZTHENBY=189+2*32:GOSUB6] 
BO: GOSUB6160 

6110 IFOP>=0OTHENBY=0P/256:GOSUB 
6170:GOSUB6150:BY=0P:GOSUB6180 


",4) :FOR]J=" 


6120 IFR=0THEN5S320 

6130 GOSUB6160:BY=R:GOSUB61BO:I 

F (ABS (BORFNB (M,6))<>0) ANDOS<>"3 

r"THENBY=R/25h56:GOSUB 6180 

6140 G0TO05320 

6150 IFZ<>0ANDBY<>0ANDARBS ( (B=0) 

*NOTB) <>0THENGOSUB6260:BY=VAL(F 

S) :GOSUB6180:2=0 

6160 PRINT” ”;:RETURN 

6170 IFINT(BY)<=0OTHENRETURN 

6180 BY=FNJ(BY,B): POKEP,BY:P=P+ 

1 

6190 BY=FNJ(BY,8B):PRINTMIDS (HS, 

1+INT (BY/16),1);MIDS (HS, FNJ(BY, 

4)+1,1); 

6200 RETURN 

7000 IFK>NTHENIS=" end” : RETURN 

7010 Kl=K9+1:IFK9>=LEN(TS(K) )TH 

ENIS="/faltando/”": BETURN 

7020 K9=K1: IFMIDS(TS(K),K1,1)=" 
"THENZ010 

7030 IFK9>LENC(TS (K)) THENIS=RIGH 

TS (TS(K), LEN(TS(K))-K1+1) :RETUR 

N 

7040 IFMIDS(TS(K),K9,1)<>" "THE 

NK9=K9+1:G0T07030 

7050 IS=MIDS(TS(K),K1I,K9-K1) :RE 

TURN 

8000 IFK>OTHENIFRIGHTS(TS(K),LE 

N(TS(K))-K9+1)>T5 (99) THENPRINTR 
IGHTS(TS(K), LEN(TS(K))-K9+1); 

B010 K=K+1:K9=0 

B020 PRINT:RETURN 

9000 K5="" 

9010 IFIS<"a"0RIS>"z"THEN9030 

9020 X5=XS+LEFTS (18,1): IS=RIGHT 

S(I5,LEN(1I5)-1):G0T09010 

9030 IFI$S<>""THENRETURN 

9400 FORG=1ITOVV:IFFNE(XS,Z5(G)) 

THENRETURN 

9410 NEXKTG:VV=VV+1:Z5 (VV) =K$:G= 

VV:R(G)=23000 

9420 RETURN 

10420 CLS: LOCATEO,10:PRINT"Posi 

cione a fita, pressione qualque 
r tecla e aperte PLAY no grav 

ador” 

10430 US$=INKEYS: IFU$S=""THEN1043 


O 

10440 OPEN"CAS: ASM"FORINPUTAS41 
“CLS: LOCATE6, 10: PRINT"Carregand 

o programa fonte”: INPUT&L,N:FOR 

J=1TON:LINEINPUTE&L, TS (J) :NEXT:C 

LOSE41:RETUABEN 

10450 CLS:LOCATEO,10:PRINT"Posi 
cione a fita, aperte RECORD no 

gravador e pressione qualqu 

er tecla” 

10460 US=INKEYS: IFU$=""THEN1046 
0 

10470 OPEN"CAS: ASM"FOROUTPUTAS+ 
1:CLS:LOCATE?7,10:PRINT"Gravando 
programa fonte":PRINT4AI,N:FORBJ 
=1TON:PRINT+AIL, TS(J) :NEXT:CLOSE+S 
1:RETURN 

10490 PRINT"Qual o número da 11 

nha (múltiplo de 10)”; 

10500 INPUTK:CLS 

10510 K2=K/10:IFK2Z>NTHENK2=N+1: 

N=N+1L:TS(K2)="" 

10520 IFK2Z<. ITHENK2=.1 

10530 IFK2=INT(K2) THEN10550 
10540 K2=INT(K2)+1:FORK3I=NTOK2- 


MERO o o Ds o 160 ODIGO DEANAUANA EIA E) E 6 5 RR RA 


ISTEP-1:TS(K3+1)=TS(K3) :NEXT:N=º 
N+1:TS(K2)="" 

10550 P1l=-887:P0=Pl 

10560 LOCATEO,21:PRINTK;TAB(6)T 
S (K2) +STRINGS (10,32) ;: P9=PO+LEN 
(TS (K2)) 

10570 IFPI<POTHENPI=PO 

10580 IFPI>P9THENP1=Pl-1 

10590 VPOKEBASE (0) +P1-1,32:VPoOK 
EBASE (0)+P1,195 

10600 P7=0:AS=INKEYS:IFAS=""THE 
N10600 

10610 IFAS=CHRS (13) THEN10700 
10615 IFAS=CHAS (27) THENRETURN 
10620 IFAS=CHRS (28) THENVPOKEBAS 
E (0)+P1,32:P1l=Pl+1:60T0O105B0 
10630 IFAS=CHAS (29) THENVPOKEBAS 
E (0)+P1,32:Pl=Pl-1:60T010570 
10640 IFAS=CHRS (30) THENAS="":GO 
T010670 

10650 IFAS=CHAS (31) THENAS=" "+M 
ID$S(TS(K2),P1l-P0+1,1):P/7=-1:GOT 
010670 

10660 IFAS<” "THEN10600 

10670 IFP1I-PO+1>LEN(TS (K2)) THEN 
TS (K2) =LEFTS(TS(K2), PI-PO)+AS:G 
0T010690 

106B0 TS(K2)=LEFTS(TS(K2),P1-PO 
J+AS+RIGHTS (TS (K2), LEN(TS(K2))- 
P1+P0-1) 

10690 Pl=P1l-(LEN(AS)>0)+P7:GOTO 
10560 

10700 LOCATEO, 24: PRINT:K=K+10:G 
OTO10510 

10710 IFN=OTHENCLS: PRINT” Nada 
a apagar” :RETURN 

10720 CLS:PRINT"Qual o número d 
a linha (múltiplo de 10)"; 


COMO ENCONTRAR ERROS EM 
PROGRAMAS LONGOS 
O erro mais comum em programas 
| como o desta lição consiste em deixar 
de digitar um segmento de linha DATA 
' (nisso também o MSX se assemelha ao 
ZX Spectrum). Assim, quando surge a 
mensagem “OUT OF DATA”, deve- 
mos averiguar o que está faltando nas 
| linhas DATA. Até mesmo a falta de 
| uma vírgula causará problemas. Se o 
seu Assembler não funcionar na primei- 
ra vez, não se preocupe: o MSX pos- 
sui uma função de rastreamento (trace) | 
que o ajudará a encontrar os erros. | 
Para ativá-la, digite TRON no modo | 
imediato, sem número de linha. Depois | 
rode o programa usando RUN. O núme-. 
ro da linha BASIC que estiver sendo 
executada nesse momento aparecerá 
na tela. Esse recurso torna mais fácil 
| a detecção de erros nos programas 
| mais longos. 
| À função é desativada pelo coman- 
| do TROFF. 





10730 INPUTK:K2=K/10 

10740 IFK2>NORK2Z<10ORK2Z<>INT(K2) 
THENPRINT" Esta linha não existe 
*: RETURN 

10750 K=K2:FOR KI=K2 TO N:TS(K3 

)=TS (K3+1) :NEXT:N=N-1:LOCATE 0, 
10:-PRINT K*10;” ":TS(K):RETUAN 

10760 IEN=OTHENPRINT”" Nada a li 
Btar”" :BRETUBN 

10770 PRINT"Quais os números da 
primeira e da última linh 
a (múltiplos de 10)"; 

10780 INPUTK,K2:K=INT(K) :K2=INT 
(K2) :K1=K/10:K2=K2/10 

10790 IFKZ>2NTHENKZ=N 

10800 IFKI<ITHENKl=1 

10810 IFK2<K1IANDK2=NTHENRETUBN 
10820 IFK2<KITHENCLS: PRINT"Núme 
ros de linha inválidos":GOTO1O07 
70 

10830 CLS:FORK3=KITOK2: PRINTK3* 

10;” ";TS(K3) :NEXT 

10840 RETURN 

10900 END 


Os espaços em branco foram elimi- 
nados de modo a diminuir a quantida- 
de de memória ocupada pelo programa. 
Algumas linhas — 5450 e 5750, por 
exemplo — são quase do tamanho má- 
ximo permitido pelo computador; as- 
sim, qualquer espaço adicional pode 
fazer com que a porção final dessas li- 
nhas seja ignorada. 

As linhas 5030, 5050, 5390, 5500 
apresentam, cada uma, quatro caracte- 
res em branco entre as aspas; as linhas 
5660 e 5770, três; e as linhas 10750 e 
10830, dois. 


“COMO FUNCIONA O PROGRAMA 


Antes de montar o programa deve- 
mos proteger uma área de memória, on- 
de o Assembler colocará os códigos por 
meio do comando CLEAR. Isso é feito 


UIIIILRETR E A 


= ==. 


na linha 5000, que reserva 500 bytes pa- 
ra os cordões (strings) e protege a me- 
mória a partir de EOOO hexadecimal. 
Mude esse valor conforme as necessida- 
des. Programas grandes podem exigir 
maior espaço de cordões. 

Depois de digitar, rode o Assembler 


and RS DR 


e verá um menu. Para digitar um pro- 
grama em Assembly, tecle ““e'” (não se 
esqueça de destravar a tecla CAPS, pa- 
ra que o MSX aceite letras minúsculas). 
O computador pedirá então o número 
da linha. Cada instrução deve ser intro- 
duzida em uma linha numerada, seme- 





Eu 





lhante ao que ocorre no BASIC. É 
preciso que os números das linhas sejam 
múltiplos de 10; apenas um mnemôni- 
co Assembly com seus operandos pode 
ser introduzido em cada linha. 

A primeira linha de seu programa de- 
ve ser mais ou menos assim: 


— 


E 
ha 


ca 


4 blg FA “ua Rar. 


D 


% 
“E 


bs 


10 org -B192 


— 8192 é o endereço inicial do pro- 
grama em código. Obviamente, ele de- 
ve estar na área protegida da memória. 
Se esquecermos de definir org, ou seja, 
a origem, o Assembler colocará o pro- 
grama a partir de DFFF, em hexadeci- 
mal (ou — 8192, em decimal), 

O programa aceita os códigos mne- 
mônicos padrão do chip Zilog Z-80, 
com exceção dos comandos de retorno 
condicional. O comando de retorno in- 
condicional de sub-rotinas, cujo mne- 
mônico é ret, entretanto, funciona em 
nosso Assembler. 

Algumas vezes, porém, podemos uti- 
lizar retornos condicionais, como ret nz, 
que significa “retorne se não for zero”. 
Em nosso caso, use: rts nz (rts deve ser 
usado no lugar de ret sempre que preci- 
sarmos empregar retornos condicio- 
nais). Quando se trata de retorno 
incondicional — ou seja, ret não segui- 
do de nenhuma letra — use o mnemô- 
nico padrão ret. 

No artigo da página 213 (Programas 
em Código de Máquina), usamos o mne- 
mônico outir, quando na verdade o pa- 
drão Z-80 é otir. Nosso Assembler aceita 
otir. 

Números hexadecimais devem ser 
precedidos de $. Números binários, de 
%. Qualquer número sem nada na fren- 
te será interpretado como decimal. 
Qualquer expressão que não seja um co- 
mando Assembly será considerada co- 
mo um rótulo (label). Evite usar 
palavras parecidas ou muito longas; nú- 
meros não são permitidos. 

Para que o Assembler saiba onde pa- 
rar, termine seu programa com end. 

Antes de apertar o ENTER para edi- 
tar uma linha pressione as teclas do cur- 
sor. As setas “direita”” e “esquerda” 
movem o cursor ao longo da linha; a se- 
ta “para baixo” serve para inserir ca- 
racteres e a seta “para cima”, para 
apagá-los. A edição de linhas é bastan- 
te lenta e muitas vezes os caracteres di- 
gitados demoram a aparecer no vídeo. 

Use a tecla ESC para sair do modo 
de edição. Essa tecla deve substituir o 
comando ENTER, depois que a última 
linha tiver sido digitada; caso contrário, 
uma linha em branco será incorporada 
ao programa em Assembly. 

De volta ao menu, pressione pa- 
ra obter uma listagem do programa em 
Assembly na tela. 

Se houver algum erro na introdução 
do programa-fonte, volte ao menu e 
pressione ''e””; forneça então o número 
da linha que deseja mudar. 

Por outro lado, se quisermos inserir 
uma linha entre duas já existentes, bas- 


ca Tê 


a >> + 5— 7 ——— 


tará digitá-la usando um número inter- 
mediário, quando no modo de edição. 
Assim, ao listarmos o programa nova- 
mente, veremos que ele foi renumerado 
com a nova linha no lugar certo. Toda- 
via, apenas uma linha pode ser introdu- 
zida dessa maneira de cada vez. 

Para apagar uma linha, é preciso vol- 
tar ao menu, teclar “'a””, e fornecer o 
número da linha que queremos eliminar. 

Quando estivermos satisfeitos com o 
programa Assembly a ser montado 
(programa-fonte), devemos voltar ao 
menu e teclar ''m'” para que ele seja 
“montado” na memória. Ao mesmo 
tempo, obteremos uma listagem dos có- 
digos equivalentes na tela (programa- 
objeto). 

Se a esta altura notarmos um erro em 
alguma das linhas, devemos voltar ao 
menu e editar a linha correspondente. 

Uma vez montado o programa, o en- 
dereço final da rotina em código apare- 
cerá na tela. 

A opção de gravação — “g””, no me- 
nu — armazena o programa-fonte em 
fita cassete — os mnemônicos, portan- 
to. Para gravar o Assembler, use a via 
normal — CSAVE. 

Para executar o programa em códi- 
go, utilize instruções do tipo DEF US- 
RO e A=USRO. Grave o programa- 
objeto, empregando: 


BSAVE “CAS:nome”, endereço 
inicial, no de bytes 


“Nome” é a denominação do pro- 
grama-objeto e deve estar entre aspas. 
BSAVE informa ao computador que está 
sendo gravado um programa em código 
e não em BASIC. O endereço inicial é 
a origem do seu programa na memória. 
Podemos calcular o número de bytes 
subtraindo a origem do endereço final 
e somando 1. Podemos ainda acrescen- 
tar o endereço inicial para execução (não 
mostrado no exemplo). Como esse en- 
dereço é quase sempre igual ao endere- 
ço inicial, sua inclusão é opcional. 


ES: 


Para testar seu programa, entre o 
programa de deslocamento horizontal 
da tela para a direita que se encontra na 
página 215. Uma vez traduzido para có- 
digo, ele ficará assim: 


lJI CO E4 21 BF E4 6 18 C5 1A 01 
27 00 ED B8 12 2B 1B Cl 10 F3 
C9 


Note que devemos usar letras minús- 
culas para digitar o programa-fonte. 
Nosso Assembler não reconhece coman- | 
dos em maiúsculas. 
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Qualquer pessoa com algumas horas 
de experiência com computadores pode 
criar caracteres gráficos originais para 
usar em jogos. Tudo o que se precisa é 
lápis e papel para esquematizar as idéias, 
além de duas (ou, no máximo, três) ro- 
tinas simples para transformar tais 
idéias em figuras no computador. 

Cada tipo de máquina exige um mé- 
todo particular para a criação de novos 
padrões de caracteres gráficos definidos 
pelo usuário. O tamanho desses carac- 
teres também é variável. O MSX tem 
sprites de 16 por 16 pixels (ou pontos), 
enquanto o Spectrum oferece apenas um 
UDG de 8 por 8 pixels (os compatíveis 
com o ZX-81 não serão tratados aqui). 

No entanto, independentemente do 
que seu computador ofereça, o mais 
conveniente é começar criando figuras 
de 8 x 8 (tamanho aproximado de um 
“inimigo” em um jogo espacial). Uma 
vez que você tenha aprendido a traba- 
lhar com esse padrão, será fácil criar fi- 
guras maiores, ou mesmo encadear duas 
ou mais pequenas figuras para formar 
uma terceira. 





“DO DESENHO PARA O BINÁRIO 


Em alguns computadores, os dados 
necessários para definir um UDG po- 
dem ser fornecidos diretamente na for- 
ma binária. Em outros, você terá que 
convertê-los em decimal ou em hexade- 
cimal. Assim, leia primeiramente a se- 
ção para sua máquina antes de fazer 
qualquer conversão. No Apple você te- 
rá que usar o nosso editor de figuras. 


Os computadores armazenam as in- 
formações que lhes são dadas em biná- 
rio. Mas você não precisa conhecer esse 
sistema numérico para transformar seus 
desenhos em filas de números binários. 
Tudo o que deve fazer para isso é: 


— Utilizar o número 1 sempre que qui- 
ser obter um ponto. 

— Empregar o número 0 toda vez que 
quiser um espaço. 


Tomemos como exemplo o padrão 


s da cruz de Lorena. A linha do topo é 
composta de três espaços, um ponto e 
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mais quatro espaços. Em binário, 
00010000. 

A segunda linha é formada por dois 
espaços, três pontos e três espaços: 
00111000. Todo o padrão pode ser re- 


presentado assim: 
00 


ocoocoocoooO 
Soco-r oo 
osvocorora 
Ot qo pá ts js fps 
sococor oro 
oocooorooo 
o0000000 
oooooooo 





DE BINÁRIO PARA DECIMAL 


A maneira mais rápida de converter 
binário em decimal é usar a pequena ta- 
bela de nove linhas por oito colunas que 
apresentamos a seguir. Na primeira li- 
nha, escreva os números 128, 64, 32, 16, 
8, 4, 2, 1. Nãs outras oito coloque os nú- 
meros correspondentes ao gráfico que 
você quer. Aqui temos, por exemplo, a 
tabela para a cruz de Lorena: 

1 


128 6 3 


So0000000 

2000» 0004 
Socorro = os 
O fé fui quê fu ja junê jus CA 
do cCoOoroQr o» 
0000-000 %h 
00000004 
o0000000% 


Para fazer a conversão, ignore os ze- 
ros. Inicialmente, compare os 1 em bi- 
nário com o número no topo da colu- 
na. Some então todos os números cor- 
respondentes aos 1 da primeira linha. 
Repita essa operação em todas as linhas. 


No exemplo, a primeira linha contém 
o número 1 apenas na quarta coluna. 
Portanto, temos 16. 

A segunda linha tem três 1 que cor- 
respondem a 32, 16 e 8. Soma: 56. 

Quando o processo de verificação 
houver terminado, você terá oito núme- 
ros decimais. A declaração DATA ne- 
cessária para entrar os dados no com- 
putador ficará assim: 


DATA 16,56,16,124,16,16,16,0 


Você não precisa conhecer código de 
máquina nem entender de 
sistema binário para animar seus jogos 
com figuras simples. Leia este 
artigo e veja como é fácil fazer isso. 


De início, você pode ficar com a im- 
pressão de que esta é uma forma muito 
complicada de fazer o trabalho. No en- 
tanto, depois de meia dúzia de tentati- 
vas, seu ritmo de trabalho se tornará su- 
ficientemente rápido. Além disso, as 
combinações mais comuns, como 255 
(ou 11111111 em binário), serão logo 
memorizadas, poupando-as da necessi- 
dade de fazer cálculos para chegar ao 
sistema decimal. 





DE BINÁRIO PARA HEXADECIMAL | 


Converter números binários em he- 
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TRANSFORME DESENHOS EM 
: FILAS DE NÚMEROS BINÁRIOS 
E CONVERSÕES DE BINÁRIO PARA 
— DECIMAL E PARÁ HEXADECIMAL 
E | USEGRÁFICOS EMPROGRAMAS 





xadecimais é ainda mais fácil. Para is- 
) | so, basta aplicar a tabela a seguir, não 
sendo necessário nem mesmo escrever 


: nela os múmeros binários: 
; Binário Hexadecimal 
) BED e PE EE e PR 0 
: DOM a ea Es GS SA RO pia O a 1 
MERO zx=Dicssntus vv ESG 2 
DO E nie as Caroia o Da E SE 3 
DER sims a VR RO RR CA CU REAÇÃO 4 
Ds si SS SEAL Ec a RU ER 5 
y OR 1 CA PE GR Pu a ip JA a A 2) 
id HE ça A NS RS E q POR GR RR DOR DI 7 
TON dia ss sb o SEE us das ia 8 
- DOM e sta sda doa DA A 


POLO. so essere DE PD MIRA ATA A 
EUA sa esa e a A 6 A EO NE (E 2 GET B 
DAN ss sa E Ed as a a a E é C 
MEL, q 1 ds Ii E ES ta EH D 
Ed E vei sa id AD RSA DA AÇO 622 ASA E 
CE DL Pp a DP Apr A F 


Desta vez não ignore os zeros. Para 
começar, tome Os primeiros quatro di- 
gitos do número binário e procure o seu 
equivalente em hexa. Em seguida, faça 
o mesmo com os quatro dígitos seguin- 
tes. A reunião dos dois dígitos hexade- 
cimais obtidos define o número que vo- 
cê precisa, 

Voltando à cruz de Lorena, a primei- 
ra metade do binário da primeira linha 


é 0001. Em hexa temos, pela tabela, 1. 
A segunda metade é 0000, Em hexa, te- 
mos O. Escreva os dois números juntos 
e teremos 10, o hexa correspondente ao 
binário 00010000. 

De forma similar, na segunda linha 
temos 0011 (que é 3 em hexa) e 1000 (8 
em hexadecimal). Assim, o número he- 
xadecimal completo é 38. 

Repita o processo até a ultima linha 
e terá oito números hexadecimais. A sua 
declaração DATA completa ficará co- 
mo segue: 


DATA 10,38,10,7C,10,10,10,00 











Além disso, a única coisa a fazer é di- 
zer ao computador (que não pode adi- 
vinhar) se o número que você está digi- 
tando é decimal ou hexa. Veja como fa- 
zer Isto na seção especifica do seu com- 
putador. 

Evidentemente, é possivel escrever 
um pequeno programa para fazer a con- 
versão de bases numéricas, mas ele não 
será muito útil se você quiser modificar 
alguma informação que já esteja na me- 
mória do computador. 


Tiso a 


O TRS-Color aceita DATA em deci- 
mal, hexa ou binário. 

Se os dados (DATA) estão em hexa, 
você terá que adicionar uma linha extra 
ao programa para convertê-los em de- 
cimal (veja a seguir). 








O primeiro programa desenha um pe- 
queno avião no canto superior esquer- 


do do vídeo. Este pode não ser o me- 
lhor lugar para vê-lo; mas é o mais fácil 
para começar, se você quiser fazer um 
programa para movimentá-lo pela tela. 


20 PMODE 4,1 


30 PCLS 

40 SCREEN 1,1 
60 FOR L=0 TO 7 
70 READ NS 


80 POKE L*32+1536, VAL ("&H"+NS) 
90 NEXT L 

110 GOTO 110 

500 DATA 00,10,18,9C,FF,9C,18B,1 
0 

Digite o programa e execute-o. 

PMODE 4,1 foi escolhido na linha 20 
porque só se pode produzir gráficos 
UDG quando neste modo de resolução 
gráfica mais alta. 

Para limpar a tela sobre a qual vai se 
desenhar, deve-se usar o comando 
PCLS como na linha 30. Ele se aplica 
não só ao PMODE 4,1, como a todos 
os modos de alta resolução. 

Use SCREEN 1,1, como na linha 40, 
para ligar a tela de alta resolução de for- 
ma a mostrar o seu UDO. SCREEN 1,1 
também seleciona as cores branca e pre- 
ta. 

O laço FOR...NEXT das linhas 60 e 
90 faz com que a linha 70 seja executa- 
da oito vezes. Toda vez que encontra 
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READ N$, o computador lê o dado se- 
guinte da linha DATA de número 500. 

A linha 80 é importante por duas ra- 
zões. A primeira é que ela faz com que 
o padrão de pontos definido pela linha 
500 apareça no vídeo. A segunda é que 
ela converte os números hexadecimais 
da linha DATA em decimais e coloca- 
os diretamente na área de memória que 
controla o que aparece na tela do com- 
putador. 

Finalmente, a linha 110 é um laço que 
mantém a alta resolução. Sem essa linha 
o programa terminaria, provocando o 
retorno automático para o modo texto; 
em conseguência, você não veria o seu 
desenho na tela, 





GRÁFICOS UDG MAIS ALTOS 


Você pode criar um UDG “alto e ma- 
gro”, em vez de um 8x8, mudando a li- 
nha 60 e alterando os dados da linha 
500. Em primeiro lugar, modifique a h- 
nha 60 para: 

60 FOR L=0 TO 7 


Em seguida, mude a linha 500 de for- 
ma que fique assim: 


500 DATA 00,10,18,9€C,FF,9C,18B,1 
O 

A alteração na linha 60 permite a lei- 
tura de um maior número de dados da 
linha 500. E esta define a imagem de um 
coelho, usando hexadecimais. Assim, ao 
executar O programa, você encontrará 
a figura do coelho na tela. 





Esse método permite a criação de grá- 
ficos de qualquer tamanho. Se você já 
desenhou a sua figura em papel quadri- 
culado, conte quantas linhas foram usa- 
das. Altere a linha 60 usando o número 
de linhas do desenho. A seguir, faça com 
que o número de informações da linha 
DATA corresponda ao número de vezes 
que o laço FOR...NEXT for executado. 





| | 
| | | | | | 
| | 
| | | 
l ” = ] 
k = 
4 * 
mw , q . ” € F. 





GRÁFICOS UDG MAIS LARGOS | 


O desenho de figuras baixas e largas 
(em vez de altas e estreitas) exige um 
pouco mais de trabalho. 

Comece mudando as linhas 60 e 80 
da seguinte forma: 

60 FOR L=0 TO 7 
80 POKE L*32+1536+F, VAL ("&H"+NS 


Altere a linha DATA de forma que 
apareça assim: 
500 DATA 0F,0F,EF,EF,EF,EF,FE,4 


4,FE,FF,FE,FE,FF,FF,40,00,FF,FF 
(1FF.FF,FE,FF,66,66 


Finalmente, adicione estas linhas: 


50 FOR F=0 TO 2 
100 NEXT F 


Quando você executar o programa, 
verá na tela a figura de um caminhão de 
carga. 





Como isto funciona? Os 24 trechos 
de informação da linha 500 formam três 
quadrados de oito pixels de lado. Se os 
dados fossem lidos por um único 
FOR...NEXT como antes, o caminhão 
apareceria de forma peculiar, cortado 
em três pedaços que se amontariam no 
vídeo. Assim, o computador deve ser 
avisado para colocar os blocos lado a la- 
do. Para fazer isso, um laço extra alte- 
ra o valor do POKE na linha 80, de for- 
ma que o segundo bloco apareça na li- 
nha do topo, ao lado do primeiro. De- 
pois de ser lido, o terceiro bloco é colo- 
cado ao lado dos outros dois por inter- 
médio do comando POKE. 


“ MOVIMENTE OS DESENHOS 





Você pode mover a figura do avião 
pela tela usando estas Imhas: 


110 
120 
130 
140 
150 
160 
170 


DIM A(3),B(3) 

GET (0,0)-(7,7),A,G 

PCLS 

LET X=1Z/ 

LET Y=95 

PUT (X,Y)-(X+7,Y+7),A, PSET 

LET LX=X 

180 LET LY=i 

190 IF PEEK(338)=251 AND Y>2 TH 
EN Y=Y-2:GOTO 240 

200 IF PEEK(342)=253 AND Y<182 

THEN Y=Y+2:GOTO 240 

210 IF PEEK(340)=247 AND X>3 TH 


EN X=X-3:GOTO 240 

220 IF PEEK(338)=247 AND X<245 
THEN X=X+3:GOTO 240 

230 GOTO 190 

240 PUT (LX,LY)-(LX+7,LY+7),B,P 
SET 

250 GOTO 160 


Quando você executar este programa, 
a tecla Z movimentará a figura para a 
esquerda; X o fará para a direita; P pa- 
ra cima; e L para baixo. 

O comando GET permite ao compu- 
tador lembrar-se do que está em um de- 
terminado ponto da tela, enquanto PUT 
coloca o que foi encontrado em qual- 
quer outro lugar. DIM, por sua vez, re- 
serva espaço na memória para GET. 

As linhas 190 até 220 verificam se 
uma tecla foi pressionada e movem o 
UDG em caso positivo. 

Se você quiser mover o coelho deve 
fazer as seguintes alterações: 


110 DIM A(6),B(6) 

160 PUT (X,Y)-(X+7,7+23),A,PSET 
200 IF PEEK(342)=253 AND Y<166 
THEN Y=Y+2:GOTO 240 

240 PUT (LX,LY)-(LX+7,LY+23),B, 
PSET 


Para movimentar o caminhão, faça 
estas modificações: 





110 DIM A(6),B(6) 


160 PUT (X,Y)-(X+23,7+7),A, PSET 


200 IF PEEK(342)=253 AND Y<182 
THEN Y=Y+2:GOTO 240 

220 IF PEEK(338)=247 AND X<229 
THEN X=X+3:GOTO 240 

240 PUT (LX,LY)-(LX+23,L7+/),B, 
PSET 


COMO USAR DADOS EM BINÁRIO 





Você pode colocar números em biná- 
rio nas linhas DATA, se quiser, mas 
certifique-se antes de que cada número 
consiste de um byte de oito bits. Você 
terá, também, que adicionar estas linhas 
ao programa: 


71 LET N=0 

72 FOR J=1 TO 8 

74 IF MIDS(NS,J,1)="1”" THEN N=N 
+2" (8-9) 

76 NEXT J 


BO POKE L*32+1536+F,N 


As novas linhas examinam os bytes 
bit por bit, transformando-os em núme- 
ros decimais. Estes são, resumidamente, 
equivalentes aos da tabela de conversão 
mostrada na introdução deste artigo. 

A movimentação de figuras em alta 











(ONA E AR E HRS A ERRAR DMA O 1) 4 


resolução será apresentada em detalhes 
num artigo próximo. 


“ + RESEsese 


No Apple, entretanto, a geração de fi- 
guras em alta resolução não segue os 
mesmos padrões de outros computado- 
res, sendo muito mais complicada (em ar- 
tigo anterior, publicamos um editor de fi- 
guras móveis que permite aos usuários 
desse microcomputador utilizarem figu- 
ras compostas por blocos de 8x8 pontos). 

Neste artigo você poderá treinar a uti- 
lização do editor de figuras. Os progra- 
mas a seguir só funcionarão se as figu- 
ras correspondentes tiverem sido gera- 
das pelo editor. 

Carregue o programa editor de figu- 
ras no seu computador e coloque o de- 
senho do pequeno monstro a seguir em 
linhas DATA usando asteriscos. 


Que sistema de numeração — biná- 
rio, decimal ou hexa — é melhor usar 
nas linhas DATA? 

Dependendo das características do 


seu computador, pode ser melhor usar 
o sistema binário. Além de permitir a 
visualização do padrão do desenho, 
evitando contas, o sistema binário pos- 


sibilita alterações de pequenas partes | 


da figura. 
Se você quiser empregar o mesmo 
padrão em outros programas, vale a pe- 


na converter os números para decimal | 


ou hexa, que são mais compactos. 
A utilização de números hexadeci- 
mais vai ajudá-los a se familiarizar com 
esse sistema, que é a base da progra- 
mação em código de máquina. 








Execute o programa editor e a figu- 
ra será armazenada na memória. Feito 
isso, digite NEW e o seguinte programa: 


10 HOME : HGR 

20 SCALE= 1: ROT= O 
30 X = 140:Y = 90 
40 GOTO 200 

SO LX = ELF = T: 
60 A = ASC (AS) 

20 IF A = 80 ANDY > B THENJUY 

= Y = 4: GOTO 200 

B0 IF A = 76 ANDY < 150 THEN 

Y=Y + 4: GOTO 200 

90 IF A = 90 AND X > 68 THENXK 

=X - 4: GOTO 200 

100 IF A = 88 AND X < 2/0 THEN 
X =X + 4: GOTO 200 

110 GcoTo 50 

200 HCOLOR= 0 

210 DRAW | AT LX,LY 

220  HCOLOR= 3 

230 DRAW | AT X,Y 

240 GOTO 50 


GET AS 


Não há necessidade de copiar as li- 
nhas DATA geradas pelo programa edi- 
tor. Uma vez criada, a figura permane- 
cerá protegida no topo da memória até 
que o computador seja desligado, ou até 
que o programa editor crie outra forma. 
Nem mesmo NEW pode destrui-la. 

O programa movimenta a figura com 
o auxilio das teclas P, L, X e Z. As h- 
nhas 50 a 110 fazem isso da maneira 
usual. 

As linhas de 10 a 40 cuidam das con- 
dições iniciais: limpeza e definição da te- 
la, escala, orientação e posição inicial da 
figura. 


—— — 
——— 
p= 


As linhas de 200 a 240 apagam o 
monstro de sua última posição, dada 
por LX e LY, e o desenham na nova, 
dada por X e Y. 





“DESENHOS MAIS LARGOS 


Desenhos compostos de mais de um 
bloco de 8x8 pontos exigem um cuida- 
do especial com as coordenadas. Esse 
cuidado é necessário para que as figu- 
ras se posicionem de acordo com o pla- 
nejado. Para familiarizar-se com esse ti- 
po de desenho, gere os dois blocos que 
compõem o cachorro com o auxílio do 
programa editor. 





Feito isso, digite NEW e carregue o 
programa anterior. Faça as seguintes 
modificações para mover o cachorro: 


100 IF A = 688 AND X < 260 THEN 
X =X + 4: GOTO 200 

215 DRAW 2 AT LX + B8,LY 

235 DRAW 2 AT X + 8,7 


A condição após AND na linha 100 
evita que o desenho ultrapasse a margem 
direita da tela. Ela teve que ser modifica- 
da porque agora o desenho é mais largo. 

Como a figura tem dois blocos de 8x8 
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pontos, foi necessário colocar duas no- 
vas linhas com comandos DRAW, uma 
para desenhar e outra para apagar o se- 
gundo bloco. 

E importante notar como são de- 
senhados lado a lado os blocos que 
compõem o cachorro, ou seja, da es- 
querda para a direita, e de cima para 
baixo. Assim, as coordenadas no co- 
mando DRAW se referem ao canto su- 
perior esquerdo de cada bloco. Se o pri- 
meiro bloco está desenhado nas coorde- 
nadas X, Y, e queremos que o segundo 
seja colocado à sua direita, a posição 
deste último deve ser X + 8,Y. Isso acon- 
tece porque o canto superior esquerdo 
do segundo bloco deve ficar na mesma 
linha do canto superior esquerdo do pri- 
meiro (mesma coordenada vertical Y) 
oito pontos mais à direita. 





“UMA FIGURA ALTA E MAGRA 


Continuando nosso treino, carregue 
novamente o editor e gere os dois blocos 
que desenham a silhueta de um homem. 





Digite NEW e carregue o programa 
que movimenta o monstro. Faça então 


as seguintes modificações para mover O 


homem. 


BO IF A = 76 AND Y < 140 THEN 
Y=Y+ 4: GOTO 200 

215 DRAW 2 AT LX,LY + 8 

235 DBAW 2 ATXK,Y + 8 


Da mesma maneira que no exemplo 
anterior, a condição na linha 80 teve que 
ser modificada para que o desenho, ago- 
ra mais alto, não ultrapasse a margem 


o cem 
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inferior da tela. 

As linhas 215 e 235 apagam e dese- 
nham, respectivamente, o segundo blo- 
co. Se quisermos colocá-lo abaixo do 
primeiro bloco, teremos que situá-lo na 
mesma coluna, oito pontos mais embai- 
xo. Assim, se a posição do primeiro blo- 
co for X, Y, a do segundo deverá ser 
X,Y+8. 


“4 REG o ni TS 


Embora o MSX possua caracteres de- 
finíveis pelo usuário (com 8x8 pontos, 
como nas outras máquinas), geralmen- 
te é preferivel utilizar os sprites, que são 
mais versáteis e mais adequados à mo- 
vimentação de figuras. 

Todavia, existem situações em que es- 
ses caracteres podem ser muito úteis. 
Uma aplicação muito comum é a rede- 
finição total ou parcial do conjunto de 
caracteres. Isso às vezes é desejável em 
programas que devem utilizar alfabetos 
estrangeiros ou caracteres gráficos dife- 
rentes. 

O conjunto de caracteres do MSX é 
muito completo, contendo todo o alfa- 
beto grego e uma infinidade de outros 
caracteres gráficos. Falta-lhe, porém, a 
letra é (com acento grave), utilizada na 
lingua francesa. 

Para criar esse caractere, aplique o 
mesmo método já descrito neste artigo. 
A tabela que se segue traz a codificação 
do padrão do caractere desejado, pronta 


O 


o 






Ao 





para ser colocada em uma linha DATA. 


Decimal 


Binário Hex 
00010000 10 16 
00001000 08 8 
00111100 3C 60 
01100110 66 102 
01111110 ZE 126 
01100000 60 96 
00111100 Elo 60 
00000000 00 O 





O formato decimal é mais fácil de 
usar. Mas mais dificil de calcular. O 
MSX aceita números binários e hexade- 
cimais, desde que certos padrões sejam 
respeitados. 

Para incorporar o novo caractere, use 
o programa: 


10 SCREEN O:KEY OFF 

20 FOR ID TO 959 

30 VPOKE BASE(0)+1,205 
40 NEXT 

















50 E=205*8B , 
60 FORI=E TO E+7 
70 READ BS 

80 VPOKE BASE(2)+I,VAL ("&B”"+BS) 
90 NEXT 1 

100 FOR I=1 TO 2000:NEXT I 

110 CLS: END 

500 DATA 00010000 

501 DATA 00001000 

502 DATA 00111100 

503 DATA 01100110 

504 DATA 01111110 

505 DATA 01100000 

506 DATA 00111100 

507 DATA 00000000 


Ao ser executado o programa, a tela 
é ocupada por um símbolo gráfico. Em 
seguida esse símbolo se transforma no 
caractere que procuramos, ou seja, a le- 
tre é com acento grave. Após alguns ins- 
tantes, a tela fica novamente limpa. O 
novo caractere, contudo, continua na 
memória e pode ser obtido da mesma 
maneira que o símbolo gráfico do qual 
tomou o lugar. Para isso, basta pressio- 
nar as teclas GRAPH e “E” ao mesmo 
tempo. O caractere só desaparecerá da 
memória quando utilizarmos o coman- 
do SCREEN ou quando desligarmos o 
computador. 





ENTENDA O PROGRAMA 


A linha 10 escolhe a tela de textos 
com 40 colunas e apaga do rodapé da 
tela as teclas de função. O laço das li- 


PROGRAMAS EDITORES 

Crie suas próprias figuras no Apple 

e no MSX, utilizando os programas edi- 
| tores fornecidos por /NPUT para estes 
' computadores. Eles calcularão os nú- 

meros nas linhas DATA para você. 

Lembre-se de que não será preciso 
digitar essas linhas. Ambos os compu- 
tadores possuem facilidades de edição 
que permitem usar-a própria tela pro- 
duzida pelo editor — uma vez interrom- 
pido o programa — para criar uma linha 
DATA com um número alto na frente 
(a partir de 5000). 

No MSX isto é feito com as teclas 
do cursor, INS, DEL e ENTER. No Ap- 
ple, com ESC, |, J, K, M, setas e RE- 
TURN. 

No Apple e no TK-2000 pode-se 
gravar a tabela de figuras usando o co- 

* mando W do monitor. Quem tiver dis- 
co, pode usar o comando BSAVE. 





nhas 20 a 40 enche a tela com o caracte- 
re de código igual a 205 — correspon- 
dente a GRAPH + E. 

Os padrões de todo o conjunto de ca- 
racteres estão guardados na VRAM — 
memória de vídeo — a partir do ende- 
reço dado por BASE (2). Para saber co- 
mo é o formato de um caractere, o com- 
putador multiplica o valor de seu codi- 
go por 8 e soma esse valor ao de BASE 
(2). O número que resultar dessa conta 
será o endereço do primeiro de uma sé- 
rie de oito bytes onde ficará armazena- 
da a forma do caractere. 

A linha 50 multiplica por 8 o códi- 
go do caractere que vai ser modificado, 
para saber onde seu formato está na 
VRAM. O laço das linhas 70 a 90 colo- 
ca nesse local o padrão do novo carac- 
tere; os números são lidos com READ 
nas linhas DATA. Na linha 80, VAL 
(&B + B$) permite que sejam utilizados 
números binários. 

A linha 100 retarda o processo até 
que a linha 110 apague a tela e termine 
o programa. 

Se for preciso economizar espaço, as 
linhas DATA podem ser substituídas 
por uma única linha. 


500 DATA 00010000,00001000,0011 
1100,01100110,01111110,01100000 
/00111100,00000000 


Essa linha única, porém, não permite 
que se visualize claramente o caractere. 

Se quisermos usar números hexade- 
cimais, devemos fazer as seguintes mo- 
dificações: 


B0 VPOKE BASE (2)+I,VAL("&H"+BS) 
500 DATA 10,08,3C,66,7E,60,3C,0 
Q 


Uma linha DATA desse tipo é bem 
mais fácil de ser digitada. 

Para criar o mesmo caractere na tela 
de textos com 32 colunas, faça as seguin- 
tes modificações: 


20 FOR I=0 TO 76/ 
30 VPOKE BASE (5)+1,205 
80 VPOKE BASE(7)+I,VAL ("&H"+BS) 


Note que a linha DATA deve estar 
em hexa. 


O Spectrum aceita dados tanto em bi- 
nário quanto em decimal, mas não em 
hexa. Para ver como ele trabalha com 
gráficos, digite: 


PRINT 


Para poder obter o símbolo (graphics 
A), você deverá pressionar <CAPS 
SHIFT > e <GRAPHICS > ao mesmo 


(graphics A)" 


tempo e depois teclar “A”. 

O que você vê parece um A maiús- 
culo normal. Mas você pode defini-lo 
como uma forma de 8x8 pontos. 

Para fazer isto, tudo o que você pre- 
cisa é de um programa de cinco linhas. 
Assim, se você quiser plantar o pinhei- 
ro da ilustração, deve digitar as linhas 
a seguir: 


10 FOR n=0 TO 7 
20 READ data 
30 DATA BIN 00010000,BIN 0001 
1000,BIN 00111000,BIN 0011110 
O,BIN 01111100,BIN 011111140, 
BIN 11111110,BIN 00010000 
40 POKE USR "a"+n,data 
50 NEXT n 
Esse programa usa um laço 
FOR...NEXT nas linhas 10 e 50 para dar 
entrada às oito linhas do desenho em se- 
quência. A linha 20 diz ao computador 
para ler dados na linha DATA e a linha 
40 coloca esses dados na memória do 
computador, usando o comando POKE. 
Execute o programa e digite: 


PRINT "(graphics A)” 





Você verá que o “A ' desapareceu e 
em seu lugar aparece um pinheiro. Se 
você digitar NEW agora, o programa se- 
rá apagado da memória, mas o desenho 
ficará na memória até que o computa- 
dor seja desligado. Assim, você pode 
movê-lo pela tela ou usá-lo para efeitos 
decorativos como se ele fosse um carac- 
tere qualquer. Tente este exemplo: 


5 CLS 
10 FOR vy=3 TO 19 
Z0 LET x=INT (RND*20)+5 
30 PRINT AT y,x; INK 4;" (grap 
hics A)” 
40 LET xx=INT (RND*20)+5 
S0 PRINT AT vy,xx; INK 2;" (gra 
phics A)” 
60 NEXT vy 


Esses pinheiros poderiam ser usados 
como obstáculos para um jogo de esqui. 





DESENHE UM NAVIO 


Quando você quiser criar gráficos 
maiores que 8x8, desenhe dois ou mais 
blocos de 8x8. 

O programa a seguir, por exemplo, 
cria a proa de um destróier (que você po- 
de colocar em um de seus jogos, usan- 
do as técnicas apresentadas em Progra- 
mação de Jogos): 








E e = E | | 
| | | | 
| | ] 
a >>> — — am 
= ” 
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10 FOR n=0 TO 7 

20 READ a 

30 DATA BIN O,BIN O,BIN O,BIN 
00000111,BIN 00000011,BIN 111 
11111,BIN 00000011,BIN 111111 
11,BIN 01111111,BIN 00111111 
40 POKE USR “a"+n,a 

50 NEXT n 


Dois aspectos devem ser ressaltados. 
Primeiro: você pode usar BIN O se a li- 
nha inteira for vazia. Segundo: coloque 
na linha 20 uma variável simples “a” em 
lugar de “data”, que foi inserida no 
programa anterior para que este ficasse 
mais compreensível. Poderia ser qual- 
quer outra coisa, como “br, “e” OU 
“x”, ou mesmo ''maria””; mas du 1S- 
so deveria ser utilizada uma variável 
idêntica na linha 40. 

Quando você for entrar os dados pa- 
ra as outras duas partes do navio, não 
haverá necessidade de redigitar o progra- 
ma todo. Depois de executá-lo a primei- 
ra vez, é com o primeiro gráfico na me- 
mória, mude a linha 40 para USR “b”, 
por exemplo. Mude também a linha 30 
de modo que ela passe a conter os no- 
vos dados das outras partes do navio. 


CEPE PEEITETETEÇECEr: 


SE Ni ei % x Há o tm To RA 


Tome cuidado para que as suas linhas 
DATA tenham sempre oito dados, mes- 
mo que estes sejam apenas zeros. Um 
número menor de linhas provocará um 
erro do tipo: E Out of DATA, 20:1. Co- 
loque linhas a mais e você descobrirá 
que seu navio está afundando. 

Finalmente, para entrar os dados em 
decimal, converta os binários de acor- 
do com o método já descrito; a seguir, 
coloque-os na linha DATA omitindo a 
palavra BIN. A linha 30 do programa 
do destróier ficará assim: 


30 DATA 0,0,0,7,3,255,127,63 


E AGORA.. 





Uma vez compreendidos os princi- 
pios gerais, você pode colocar no com- 
putador qualquer um dos gráficos des- 
ta página. Depois de ter feito uns três 
deles, você verá que já tem prática sufi- 
ciente para criar os seus próprios dese- 
nhos e colocá-los no computador. 
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Mesmo não sendo um Leonardo da Vinci, 
você pode realizar belos 

desenhos com a ajuda do computador. 
Para isso, basta executar O 

programa apresentado nesta lição. 
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Você não precisa ser um Rafael ou 
mesmo um Pablo Picasso para desenhar 
com desenvoltura. Devidamente progra- 
mado, seu computador pode se transfor- 
mar em uma poderosa ferramenta de de- 
senho, capacitando-o a realizar traba- 
lhos gráficos de boa qualidade com li- 
berdade igual (ou até maior) que a de 
um artista que trabalha apenas com ma- 
terial convencional: lápis e papel. 

Na indústria, a combinação de pro- 
gramas de Desenho Auxiliado por Com- 
putador (conhecido pela sigla CAD, da 
expressão em lingua inglesa Computer 
Aided Design) com computadores de 
grande porte permite não só a execução 
de desenhos de objetos com muita rique- 
za de detalhes como também a simula- 
ção de situações em que tais objetos são 
submetidos à ação de determinados fa- 
tores como carga, vento, vibração ou 
variações térmicas. Essas técnicas extra- 
polam a capacidade do micro domésti- 
co, visto que exigem o processamento de 
um volume muito grande de dados, as- 
sim como uma capacidade gráfica alta- 
mente desenvolvida, para que se possa 
produzir imagens de vários ângulos do 
objeto em estudo. 

Frequentemente, no entanto, o dese- 
nhista necessita apenas estudar um de- 
talhe ou a aparência geral do objeto. 
Nestes casos, o CAD se torna uma fer- 
ramenta capaz de substituir lápis e pa- 
pel na execução de desenhos técnicos, 
permitindo o traçado preciso de curvas, 
linhas retas e figuras geométricás, com 
a vantagem da possibilidade de correção 
instantânea. 





VANTAGENS DO PROGRAMA 


O CAD pode ser aplicado aos com- 
putadores domésticos, seja para explo- 
rar o aspecto técnico do desenho, seja 
para produzir belas formas. Mas, ape- 
sar de quase todos os micros existentes 
no mercado brasileiro (com exceção das 
linhas Apple e TRS-80) já apresentarem 
comandos para desenhar formas ele- 
mentares dentro do BASIC, é sempre 
necessário um longo programa para se 
construir formas mais sofisticadas. 
Exemplos de como isto é feito já foram 
apresentados em artigos anteriores. 


A beleza do programa editor de de- 
senhos consiste em que, uma vez na me- 
mória do computador, ele possibilita a 
criação de imagens até o limite gráfico 
da máquina, sem que seja necessário ela- 
borar novos programas. Além disso, ele 
coloca todos os comandos para gráficos 
sob o controle direto do teclado; dessa 
forma, tudo o que se tem a fazer é es- 
colher uma opção ou mover O cursor 
usando as teclas apropriadas. Esse re- 
curso oferece, em alguns casos, possi- 
bilidades que não são encontradas no 
BASIC padrão do computador. 

Como as habilidades gráficas dos di- 
versos micros variam muito, existem 
grandes diferenças entre os programas, 
esquematizados para explorar ao máxi- 
mo as vantagens e minimizar as fraque- 
zas do computador ao qual estão desti- 
nados. Os Spectrum, por exemplo, po- 
dem mostrar facilmente texto e gráficos 
na mesma tela, o que é impossível nos 
micros das linhas Apple e TRS-Color. 
Por outro lado, estes podem guardar de- 
senhos que não estão à vista, enquanto 
o MSX, por exemplo, não pode. 

Devido à limitada capacidade gráfi- 
ca do ZX-81, não apresentaremos pro- 
grama para esse micro. O programa pa- 
ra o Sinclair Spectrum rodará somente 
em máquinas com um minimo de 48kK. 





AUXÍLIO AO DESENHO 


Apesar das diferenças, os programas 
funcionam de forma semelhante: o 
usuário é apresentado a um menu (ou 
lista) de opções de desenho, que ofere- 
ce formas como linhas, elipses, círculos 
ou retângulos. Ao selecionar uma delas, 
você pode construir formas muito inte- 
ressantes, usando as teclas de controle 
do cursor para posicioná-lo na tela; as 
linhas resultantes serão precisas e regu- 
lares. E se um erro for cometido, alguns 
computadores lhe darão a oportunida- 
de de correção, 

Você encontrará também a opção de 
mudar a cor com que desenha ou, em 
alguns casos, de colorir uma determina- 
da área. Quando terminar, pode esco- 
lher entre apagar tudo e recomeçar ou 
gravar a imagem de forma que ela pos- 
sa ser recolocada na tela, mais tarde. Is- 





to lhe possibilitará também carregar na 
memória (e alterá-lo) um desenho de seu 
agrado que não tenha sido montado por 
este programa. 





EXECUTE O PROGRAMA 


As diterenças entre as diversas má- 
quinas serão explicadas nos blocos es- 
pecíficos. Em todos os casos, O progra- 
ma aparece dividido em duas partes: 
nesta lição trataremos da primeira (de- 
senhos com linhas simples); a segunda 
parte, com variações mais sofisticadas, 
será abordada no próximo artigo. 


Um menu e o cursor serão mostrados 
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na tela, assim que o programa for exe- 
cutado. Para selecionar um item do me- 
nu, coloque o cursor à sua esquerda, 
usando as teclas Q (para cima). A (para 
baixo), O (para a esquerda) e P (para a 
direita). Em seguida, pressione < EN- 
TER > para fazer a escolha; o vídeo se- 
rá apagado, deixando o cursor numa te- 
la vazia. Você poderá, a qualquer mo- 
mento, retornar ao menu (ou deixá-lo) 
apenas pressionando <ENTER>. 

A primeira opção do menu é *'Dese- 
nhar””, que coloca pontos na tela. Para 
usar essa opção, posicione o cursor no 
ponto em que você deseja iniciar o de- 
senho e pressione a barra de espaços. Ao 
ser movimentado, o cursor deixará uma 
trilha de pontos. O movimento pode ser 
acelerado pressionando-se a tecla 
< SHIFT > juntamente com a tecla que 
controla a direção do deslocamento. Pa- 


ra terminar a linha desenhada, acione a 
barra de espaços novamente, o que lhe 
permitirá mover O cursor sem marcar a 
tela ou retornar ao menu para selecio- 
nar outra opção. 

A opção “Linha” funciona de for- 
ma semelhante à anterior. A diferença 
é que a linha obtida é cheia: pressione 
< ENTER> para selecioná-la e tecle a 
barra de espaços para desenhar e nova- 
mente para terminar. A opção selecio- 
nada permanecerá disponivel até que 
uma nova seja escolhida. Dessa forma, 
pode-se ir até outro ponto e iniciar uma 
nova linha, e assim por diante. 

Existem duas opções que lhe permi- 
tem colorir a tela: ““Fundo””, para pin- 
tar a moldura e o fundo e “Tinta”, pa- 
ra colorir à medida que se desenha. Se- 
lecionada uma dessas alternativas, uma 
mensagem será mostrada para que vo- 

















Eq APRENDA A DESENHAR A 

MÃO LIVRE 
E | COMO OBTER MAIOR PRECISÃO 
USANDO OPÇÃO “LINHA” 
APRENDA A USAR CORES 


cê escolha as cores. O cursor lhe mos- 
trará a cor em uso, de forma que se po- 
derá ver o efeito instantaneamente. 
Depois de ter respondido a todas as 
questões, o programa volta ao desenho, 
com o cursor no local onde foi deixa- 
do. Pode-se fazer a opção “Tinta” an- 
tes ou enquanto se desenha. Somente 
após se ter deixado a opção de desenho 
(ao pressionar a barra de espaços pela 
segunda vez) é que a linha será fixada. 
Atenção, o programa contém código 
de máquina, de forma que deve ser gra- 
vado (SAVE) antes de se executar 
(RUN). 


10 BORDER 4: PAPER 7: 
OVER O: CLS 
20 POKE 23658,0: LET 0P=1 
40 DIM 0(12): FOR N=1 TO 12: 
READ O(N): NEXT N: LET x=127: 
LET y=8/ 
60 LET xl=x: LET vl=y 
65 LET xx=Q0: LET vy=0 
70 FOR n=65368 TO 65368+73: 
READ a: POKE n,a: NEXT n 
100 RAND USR 65380 
1020 PRINT INK 9;AT 2,9;” 





INK O: 


1030 PRINT 
SENHAR ” 
1040 PRINT INK 9;AT 4,9;" LI 
NHA n 

1050 PRINT INK 9;AT 5,9;" FU 
NDO é 

1060 PRINT INK 9;AT 6,9;" TI 
NTA já 

1070 PRINT INK 9;AT 7,9;" RE 
TANGULO  * 

1080 PRINT INK 9;AT 8,9;" CA 
IXA a 

1090 PRINT INK 9;AT 9,9;" CI 
RCULO gi 

1100 PRINT INK 9S;AT 10,9;" 
PAGAR si 

1110 PRINT INK 9;AT 11,9;" 
OPS s 

1115 PRINT INK 9;AT 12,9;" 
OPIAR é 

1120 PRINT INK 9;AT 13,9;" 
ARREGAR si 

1130 PRINT INK 9;AT 14,9;" G 
RAVAR 

1140 PRINT INK 9;AT 15,9;" 


INK 9;AT 3,9;” DE 


Q Nor 


1150 PLOT 72,48: DRAW INK 9;11 
1,0: DRAW INK 9;0,111: DRAW JT 
NK 9;-111,0: DRAW INK 9;0,-111 
1155 FOR n=1 TO 100: NEXT n 

1160 PRINT INVERSE 1; PAPER 9;. 
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Desenhos a traços, como os mostrados na tela do Spectrum... 


AT OP+2,10;"2" 
1170 PAUSE O: LET AS=INKEYS:; IF 
AS="" THEN GOTO 1170 

1175 IF AS=CHRS 13 AND 0P=9 
N RAND USAR 65404: RAND USAR 
6B: GOTO 1000 

1180 IF AS=CHAS 13 
SR 65392: RAND USAR 65368: FOR n 
=] TO 100: NEXT n: GOTO O(OP) 
1190 PRINT AT 0P+2,10;" ” 

1200 IF AS="a” THEN LET 0OP=0P+ 
1: IF 0P=13 THEN LET 0P=12 
1210 IF AS="q” THEN LET 0OP=0P- 
1: IF 0P=Ô THEN LET 0P=1 

1220 GOTO 1160 

2000 REM desenhar 

2005 FOR n=1 TO 50: NEXT n 

2010 GOSUB 8000 

2060 IF INKEYS=CHRS 13 THEN RA 

ND USR 65380: GOTO 1000 

2070 IF INKEYS<>CHARS 32 THEN G 

OTO 2010 

2080 FOR n=1 TO 50: NEXT n 

2090 GOSUB B000: PLOT x,y 

2095 IF INKEYS=CHRS 13 THEN RA 

ND USB 65380: GOTO 1000 

2100 IF INKEYS=CHAS >2 THEN GO 

TO 2005 

2110 GOTO 2090 

2500 REM linha 

2505 FOR n=1 TO 50: 
2510 GOSUB 8000 
2515 IF INKEYS=CHAS 13 THEN RA 

ND USA 65380: GOTO 1000 

2520 IF INKEYS<>CHAS 32 THEN G 

OTO 2510 

2525 FOR n=1 TO 50: 
2530 LET xx=0: LET vyy=0: 
=x: LET hy=y 

2540 GOSUB 8000: 

AW OVER L;xx,yy: 
NEXT n: PLOT hx,hy: 
L:xx,YY 

2550 IF INKEYS<>CHRS 32 THEN G 

oTo 2540 

2560 PLOT hx,hy: 


THE 
653 


THEN RAND U 


NEXT n 


NEXT n 
LET hx 


PLOT hx,hy: DR 


FOR n=1 TO 5: 
DRAW OVER 


DRAW xx,vyy: GO 


TO 2500 
3000 REM fundo e borda 
3010 PRINT 41:;AT 0,0;"Cor de fu 
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ndo (0 a 7)?" 

3015 LET aS=INKEYS 

4020 IF asS<"0”" OR ag>"7" 

GOTO 3015 

3030 POKE 65535,VAL as*B 
3035 RAND USA 65416 

3040 FOR n=1 TO 50: NEXT n 

3050 PRINT 41:AT 0,0;"Cor da bo 
rda (0 a 7)?" 

3060 LET aS=INKEYS 

3070 IF ag<"0" OR aS>"7" 

GOTO 3060 

3080 BORDER VAL as 
3090 PRINT 41;AT 0,0;" 
"o “eTARB 31;º * 

3095 RAND USR 65416: RAND USR 6 
5380: GOTO 1000 

3500 REM tinta 

3510 PRINT 41;AT 0,0; 
tinta (0 a 7)" 

3520 LET aS=INKEYS: IF as<"0” O 

R aS$>"7" THEN GOTO 3520 

3530 INK VAL as 

3540 PRINT 41;AT 0,0;” 

:”* *. GOTO 1000 

GOTO 1000 

REM rotina INKEYS 
PLOT OVER 1;X,Y 
LET AS=INKEYS 

IF AS="q” AND vy<175 THEN 
LET vyl=y+l: LET vyy=yy+] 

8030 IE AS="a”" AND v>0 THEN LE 

T yl=y-l: LET vy=yy-1 

B040 IF AS="p” AND x<255 THEN 
LET xl=x+1]: LET xx=xx+] 

8050 IF AS="o”" AND x>0 THEN LE 

T al=x-l: LET xx=xx-1 

B060 IF AS="Q”" AND vyc<l72 THEN 

LET vl=y+4d: LET vyy=yy+á 

B070 IF aS="A” AND vy>3 THEN LE 

T vl=y-d: LET vy=yy-d 

8080 IF aS="P” AND x<252 THEN 

LET xl=x+4: LET xx=xx+4 

B090 IF aS="0" AND x>3 THEN LE 

T xlex-4: LET xx=xx-4 

8095 PLOT OVER 1;x,y 

B100 LET x=xl: LET v=yl: 


THEN 


THEN 


"Ii TAB 31 


"Selecione 


"“ITAB 31 


7500 
8000 
8005 
8010 
B020 


RETURN 


9000 DATA 2000,2500,3000,3500,4 










- podem ser realizados facilmente com o programa deste artigo. 


000,4020,5000,5500,0,6000,7000, 
7500 

9010 DATA 17,0,64,33,80,195,1,0 
121 ,237,176,201,17,80,195,323,0, 
64,1,0,27,23/,176,201 

9020 DATA 1/,168,222,33,80,195, 
10,87 ,2937,476,201,17,80,195,33 
/168,222,1,0,2/,23/7,176,201 
9030 DATA 33,0,88,6,4,197,6,176 
,203,158,203,166,203,174,58,255 
,255,134,119,35,16,242,193,16,2 
36,201 


O programa começa mostrando um 
submenu, que permite escolher valores 
para o modo, tela e cor. Use as setas pa- 
ra mover o cursor e a barra de espaços 
para fazer a seleção. 

Depois de escolher os valores apro- 
priados, pressione < ENTER > para ter 
o menu principal. Para acessar as op- 
ções, posicione o cursor (usando as se- 
tas) ao lado do número do item e pres- 
sione a barra de espaços. Isso propor- 
ciona a limpeza da tela, deixando-a com 
o cursor pronto para desenhar. Para re- 
tornar ao menu a qualquer momento, 
pressione <ENTERS. 

A primeira opção do menu principal 
é “Mudar a tela”, que dá acesso ao sub- 
menu. A opção seguinte é “Desenhar”, 
usada para desenhar a mão livre, como 
se faz com um lápis. Quando seleciona- 
da, essa opção permite mover o cursor 
até o ponto escolhido para dar começo 
ao desenho; enquanto a barra de espa- 
ços for mantida pressionada, uma linha 
permanecerá na tela. Para interromper 
o desenho, basta soltá-la. Pode-se ace- 
lerar o movimento pressionando-se 
<CLEAR>. Observe que isso só fun- 
ciona quando não se desenha. 
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Na próxima lição, você verá como adicionar cor ao desenho... 


Em qualquer das opções de desenho, 
pode-se mudar de cor pressionando-se 
um número entre O e 8: isto lhe forne- 
cerá a cor correspondente que consta do 
seu manual. Para sair de “Desenhar” 
pressione < ENTER, voltando ao me- 
nu principal. 

A opção “Traçar Linha” permite de- 
senhar linhas retas. Selecione a opção 
com as setas, desloque o cursor até O 
ponto onde deseja iniciar o desenho e 
pressione a barra de espaços. Escolha 
então a cor (números de O a 8). À cor 
do cursor depende da cor de fundo, mas 
não afeta a cor da linha. Mova o cursor 
até o ponto onde deseja terminar a li- 
nha e acione a barra de espaços para 
desenhá-la. Pressione < ENTER> pa- 
ra voltar ao menu principal. Tecle 
<CLEAR> para deixar o programa. 


10 PCLEAR 8 

20 CLS:PA=239: PB=223:PC=247:PD= 
191:PE=183 

30 DIM SC(1228),CP(614) 

40 DEFFNR(Z) =SQR((XS-X) *(KS-X)+ 
(7TS-T)* (TS-T)) 

50 MD=-1:ST=-1:0P=1:CL=1]:X=127: 
Y=95 

60 GOTO 80 

70 FOR K=1 TO 1500:NEXT 

BO GOSUB 1000 

90 IF MD<O THEN PRINT €449,"err 
o NÃO FOI DEFINIDO MODO GR 
AFICO":GOTO 70 

100 IF ST<0 THEN PRINT 8449,"er 
ro NAO FOI DEFINIDO TIPO DE T 
ELA” :GOTO 70 

110 OT=1:PMODE MD,1 
120 CLS: PRINT €7,"MENU 
L* 

130 PRINT 86103," 1- MUDAR TELA”: 
PRINT €135,"2- DESENHAR” : PRINT 
8167,"3- TRACAR LINHA”:PRINT 61 
99,"4- RETANGULO”" : PRINT €231,"5 
-= CAIXA”: PRINT 8263,"6- CIRCULO 


PRINCIPA 


140 PRINT 8295,"7- DISCO" :PRINT 
8327,"B- ELIPSE”: PRINT 6359,"79 
- COPIAR": PRINT €390,"10- PREEN 
CHER”: PRINT 8422,"11- ERRO" :PRI 
NT 86454,"12- GRAVAR/CARREGAR” 
150 POKE 1097+0T+*32,128 

160 IF PEEK(341)=PC AND OT>1 TH 
EN POKE 1097+0T*32,96:0T=0T-1:G 

OTo 150 

170 IF PEEK(342)=PC AND OTC<1l2 T 
HEN POKE 1097+0T*32,96:0T=0T+1: 

GOTO 150 

180 IF PEEK(345)=PC THEN 200 
190 IF PEEK(339)=PD THEN CLS:EN 

D ELSE 160 

200 IF OT<>11 THEN 220 

210 PMODE MD,5:PUT (0,0)-(255,1 
91),S8C:GOSUB 500:PMODE MD,1:GOT 

o 120 

220 GOSUB 510 

230 GET(0,0)-(255,191),8€ 

240 EF=0 

250 ON OT GOSUB 1000,2000,3000, 
3000,3000,3000,3000,3000,4000,5 
000,0,6000 

260 GOTO 120 

500 FOR K=1 TO 4:PCOPY K+4 TO K 
“NEXT: RETURN 

510 FOR K=5 TO 8:PCOPY 
: NEXT : RETURN 

1000 CLS: PRINT 66,"preparacao d 

a tela” 

1010 PRINT 8102,"1- MODO GRAFIC 

O": PRINT €166,"2- TIPO DE TELA” 
* PRINT 6230," 3- LIMPAR TELA” 
1020 PK=PEEK(1062+64*0P) :POKE 1 
062+64*0P,63 AND PK 

1030 IF PEEK(341)=PC AND 0P>1l T 
HEN POKE 1062+64*0P, PK:0P=0P-l1: 

GOTO 1020 

1040 IF PEEK(342)=PC AND 0P<3 T 
HEN POKE 1062+64*0P, PK:0OP=0P+1: 

GOTO 1020 

1050 IF PEEK(338)=PD THEN RETUR 


K-4 TO K 


N 

1060 
1070 
1080 
1400 


IF PEEK(345)=PC THEN 1080 
GOTO 1030 
CLS:ON OP GOSUB 1200,1300, 


“ Como nestes exemplos mostrados na tela do TRS-Color. 


1090 FOR K=1 TO 200:NEXT:GOTO 1 

000 

1200 PRINT €33," QUE MODO GRAFIC 

O DESEJA USAR (0-4) 7”; 

1210 AS=INKEYS:IF AS<S"O0” OR AS> 
“q” THEN 1210 

1220 PRINT AS:MD=VAL (AS) : PMODE 

MD, 1: RETURN 

1300 IF MD<O THEN PRINT 6449," e 
rro NAO FOI DEFINIDO MODO G 

RAFICO”":FOR K=1l TO 1000:NEXT:RE 

TURN 

1310 PRINT €33,"QUE TIPO DE TEL 

A DESEJA USAR (0 OU 1) 7”; 
1320 AS=INKEYS:IF AS<"0” OR AS> 
"1" THEN 1320 

1330 PRINT AS:ST=VAL (AS) : RETURN 
1400 PRINT 633," TEM CERTEZA QUE 
QUER LIMPAR A TELA (5/N)?” 
1410 AS=INKEYS:IF AS<>"5S” AND A 
S<>"N” THEN 1410 

1420 IF AS="N” THEN RETURN 

1430 PRINT €129,"COM QUE COR VO 
CE DESEJA LIMPAR A TELA (0-8)? 


1440 AS=INKEYS:IF AS<"0” OR AS$> 
"8" THEN 1440 

1450 PRINT A$:PMODE MD,5:PCLS V 
AL (AS) :PMODE MD, 1:PCLS VAL(AS): 
RETURN 

1500 FOR K=0 TO 7:IF PEEK(338+K 

)J=PA THEN CL=K 

1510 NEXT:IF PEEK (338) =PB THEN 
CL=8 

1520 IF PEEK(338)=PD THEN EF=l: 

RETURN 

1530 DRAW"BM"+STRS (X) +”, "+STRS( 

Y)+";C”"+STRS ( (PPOINT(X,Y)+3)AND 
7) +"BE4G2BD4NF 2BL4NG2ZBU4H2” : CO 

LOR CL 

1550 IF PEEK(339)=PD 
ELSE DF=] 

1560 IF PEEK(341)=PC 

F:GOTO 1610 

1570 IF PEEK(342)=PC 

F:GOTO 1610 

1580 IF PEEK(343)=PC 
F:GOTO 1610 

1590 IF PEEK(344)=PC 


THEN DF=10 
THEN Y=Y-D 
THEN T=TY+D 
THEN X=X-D 
THEN X=X+D 


417 





F:GOTO 1610 

1600 RETURN 

1610 %=255 AND X 

1620 IF Y>191 OR Y<O THEN Y=Y+1 
91*(2*(7>191)+1) 

1630 GOSUB 500:RETURN 

2000 SCREEN 1,ST:GOSUB 1500 
2010 IF EF=1 GOSUB 500:RETURAN 
2020 IF PEEK(345)=PC THEN PMODE 
MD,5:PSET(X,Y,CL):PMODE MD,1:P 
OKE 345,255 

2030 GOTO 2000 

3000 SCREEN 1,ST:GOSUB 1500 
3010 IF EF=1 GOSUB 500:RETURN 
3020 IF PEEK(345)<>PC THEN 3000 
3030 XS=X:YS=Y 

3040 GOSUB 1500 

3050 GOSUB 500 

3060 IF EF=1 THEN RETURN 

3070 ON OT GOSUB 0,0,3130,3140, 
3140,3150,3150,3160,0,0,0 

3080 IF PEEK(345)=PC THEN 3100 
3090 GOTO 3040 

3100 IF OT=5 THEN LINE(X,Y)-(XS 
, Y8) , PSET,BF 

3110 IF OT=7 THEN PAINT (X,Y),€ 

L,CL 

3120 GOSUB 510:GOTO 3000 

3130 LINE(XS,YS)-(X,Y),PSET:RET 

URN 

3140 LINE(XS, YS)-(X,Y), PSET,B:R 

ETURN 

3150 CIRCLE(X,Y),FNR(Z),CL:RETU 


RN 

3160 IF XS<>X THEN 3190 
3170 IF(2*Y75-7)>191 OR 
<O THEN RETURN 

3180 LINE (X,Y)-(X,2*Y5S-Y),PSET 
: RETURN 

3190 CIRCLE(XS,YS),ABS(X-XS),CL 
ABS ((Y-YS)/(X-XS)) : RETURN 

4000 RETURN 

5000 RETURN 

6000 RETURN 


+ RRRSARS QRRENEES 


O programa começa oferecendo a 
possibilidade de trabalhar nas páginas 
1 ou 2 de gráficos de alta resolução. A 
seguir, escolhe-se a cor de fundo. 

Depois que a tela é preenchida com 
a cor de sua preferência, chega-se ao me- 
nu principal de opções. Tanto neste co- 
mo no programa anterior, seleciona-se 
o item desejado pressionando-se as se- 
tas do teclado até que o vídeo comece 
a piscar. Então, pressiona-se <CR> ou 
< RETURN>. 

Para desenhar linhas de qualquer ta- 
manho e em qualquer posição faça a op- 
ção “TRAÇAR LINHAS” (isso é feito 
da maneira usual). Posicione então o 
cursor em uma das extremidades da li- 
nha que você deseja. Pressione a barra 
de espaços. Você ouvirá um bip e um 
ponto aparecerá na tela. Mova o cursor 
até a outra extremidade da linha e acio- 
ne novamente a barra de espaços. Sua 


(22T5-T) 
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40 FORI = O TO7: READ CLS(I) 


linha será traçada no mesmo instante. 

Se você quiser desenhar em outras co- 
res, pressione uma das teclas de O a 7. 
Cada uma delas lhe oferece a cor cor- 
responde, cuja tabela você encontrará 
no seu manual. Nesse momento, você 
notará que a questão das cores não é 
muito simples. Existem várias interações 
que ocorrem entre as cores próximas. 
Assim, nem sempre a cor escolhida apa- 
recerá adequadamente na tela. Logo, nc 
entanto, você aprenderá a contornar es- 
se problema. 

Outra opção disponível é “APA- 
GA”, que limpa a tela em uso, dando 
a você a possibilidade de escolher uma 
nova cor de fundo. 

O menu principal oferece nove alter- 
nativas, mas apenas algumas delas es- 
tão disponíveis no momento. A primei- 
ra (“NOVA TELA”) leva você de vol- 
ta ao início do programa, permitindo 
que se refaçam as opções. Note que a 
tela escolhida será apagada. 

As cinco opções seguintes dizem res- 
peito à possibilidade de desenhar. Por 
enquanto, porém, apenas ''DESE- 
NHAR” e “TRAÇAR LINHAS” estão 
à sua disposição. A opção “DESE- 
NHAR” funciona da seguinte forma: ao 
ser feita a escolha do item, ele ficará pis- 
cando; pressione <CR> ou <RE- 
TURN>; imediatamente, a tela gráfi- 
ca será colocada à sua disposição, com 
o cursor posicionado em seu centro. O 
cursor pode ser movimentado pela tela 
usando-se as teclas 1, J, M, K, U, N,', 
* O. Para começar a desenhar, pressio- 
ne a barra de espaços. Você ouvirá um 
bip e o cursor desaparecerá. A partir 
desse momento, todo o trajeto percor- 
rido ficará marcado na tela. Para parar 
de desenhar e ter o cursor de volta, te- 
cle novamente a barra de espaços. 

Para voltar ao menu principal, pres- 
sione mais uma vez o comando <CR>. 

A opção “MUDAR DE TELA” exi- 
ge um cuidado especial. Só é possível de- 
senhar na tela escolhida no início do 
programa. Assim, essa opção permite 
apenas que você dê uma olhada na ou- 
tra tela, que não está sendo usada. De- 
pois de selecioná-la, escolha uma das al- 
ternativas de desenho. A outra tela lhe 
será então mostrada; não se esqueça, 
porém, de que não é possível desenhar 
sobre ela. Para retornar à tela original, 
tecle <CR> e selecione novamente 
“MUDAR DE TELA”. 

Finalmente, aprenda a sair do pro- 
grama, teclando <ESC > quando esti- 
ver no menu principal. 


10 ONERR GOTO 9000 
20 PI = 4 * ATN (1) 
30 DIM CL$S(7),0PS(8) 





: NEXT 

50 FOR I = O TO B: READ OPS(I) 
« NEXT 

60 TEXT : HOME PRINT "Escolh 
a a pagina de alta resolucao:” 


70 VTAB 6: INPUT "Pagina? (1 o 
uz) "PO 

BO IF PG < > 1 AND PG < >2 
THEN 60 

90 HOME PRINT “Escolha a cor 


de fundo:” 

100 VTAB 10: FOR I = O TO 7:H 
TAB 8: PRINT CLS(I): NEXT 

10 1 = 0:LM = PG * 8192 


120 FLASH : VTAB 10 + T: HTAB 

6: PRINT SPC( 2);CLS(I); SPC( 

1): 

130 GET AS: IF AS = CHBS (13) 
THEN 210 

140 IF AS < > cCHR$S (8) AND À 
8 < > cHA$S (21) THEN 130 


150 NORMAL : VTAB 10 + I: HTAB 
6: PRINT SPCd 2);CLS(I); SPCÍ 
2); 

160 IF AS = c€CHARS (8) THEN 190 

1720 IF I =7 THENI = O: GOTO 

120 

180 1 = 1I + 1: GOTO 120 

190 IF I=0OTHENJIs=Z?:goTo 

120 


200 1 = 1 - 1: GOTO 120 


210 IF PG = 1 THEN HGR : GOTO 
230 

220  HGR2 

230 NORMAL POKE - 16304,0: 

POKE - 16302,0: POKE - 1630] 

+ PG,0: POKE - 16297,0: HCOLOR 

= I: HPLOT 0,0: CALL 62454:X = 

100:Y = X: HCOLOR= 3 

240 OP = O 

250 FOR IT = 1 TO 200: NEXT : T 

EXT : HOME 


260 PRINT "Escolha a sua opcao 

." 

270 VTAB 10: FOR I = 0 TO B: H 

TAB 8: PRINT OPS(I): NEXT 

280 SPS =” *" 

290 FLASH : VTAB 10 + OP: HTAB 
6: PRINT SPS;0PS(O0P);" "; 

300 GET AS: IF AS = CHRS (13) 
THEN NORMAL : GOTO 390 

310 IF AS = CHRS (27) THEN JN 

ORMAL : HOME : END 

320 IF AS < > cHR$ (8) AND A 

3 < > o<cBRS (21) THEN 300 

330 NORMAL : HTAB 6: PRINT SPS 

:*0PS (OP) ;5PS; 

340 IF AS = CHR$S (8) THEN 370 

350 IF OP = B THEN OP = O: GOT 

O 290 

3460 OP = OP + 1: GOTO 290 

4720 TF OP = O THEN OP = 8: GOT 

O 290 

380 OP = OP - 1: GOTO 290 

390 POKE - 16301 + PG,0: 
- 16304,0:AA = O 

400 ON OP + 1 GOTO 60,2000,300 

0,3000,3000,4000,5000,6000,7000 


POKE 


1000 X1 = X:Y1 = Y 





11 APLICAÇÕES 11 





DP SA 2 


Ea 
ae 











1010 GET AS 

1020 IF AS > "0” AND AS < "7" 

THEN  HCOLOR= VAL (AS): GOTO 1 

D10 

1030 IF AS = c€CHRS (13) THEN 

POKE M,ME: TEXT : GOTO 290 

1040 IF AS = "II" THEN Y = 71 - 
2 

1050 IF AS = "M” THEN Y = Y1+ 
2 

1060 IF AS = "9J” THEN X = X1 - 
Z 

LO70O IF AS = "PK" THEN X = X1 + 
2 

1080 IF AS = "0" THEN X = X1 + 
1l:Y = Y) - 2 

1090 IF AS = "U”* THEN X = X1 - 
Ly = v] -1 

1100 IF AS = "Nº THEN X = X1 
1:Y = 71 +] 

1110 IF AS ="," THEN X = X1 + 
Ll:7 =Y1+0]1 

1120 RETURN 

1500 IF M< > O THEN POKEM, 

ME 

1520 L = INT (Y/ 64):C = INT 
(7/8) - (8 * INT (Y / 64)): 

T=Y- (8 INT (Y / 8)) 

1530 M = LM + (L * 40) + (C* 1 


28) + (T * 1024) 
1540 M = M + ( INT (X/ 7)) 
1550 ME = PEEK (M) 


1560 POREM,255 = 2 4X >A T 

NT (XX / 7) * 79) 

1570 RETURN 

2000 TF AA = O THEN GOSUB 150 
Ô 

2010 GOSUB 1000: IF AS =" " T 

HEN AA = ABS (AA —- 1): IF AA = 
1 THEN POKE M,ME 

2020 IF AA = | THEN HPLOT X,7 
TO X1,Y1 

2030 GOTO 2000 

3000 CI = 0 

3010 GOSUB 1500: GOSUB 1000: 1 

E AS < > CHARS (32) THEN GOTO 
3010 

3020 POKE M,ME 

3030 CI = CI + I:PX(CI) = X:PY( 
CI) = Y: PRINT CHARS (7);- HPLO 

TXH,Y:M = 0 

3040 IF CI< > 2 THENGSI30L0 
3050 ON OP - 1 GOTO 3060,3070, 
3080 

3060 HPLOT PX(L),PY(1) TO PX(Z 


).PY(2):M = O: GOTO 3000 


3070 PRINT CHAS (7);: PRINT 
CHARS (7);: GOTO 3000: REM ROTI 
NA NÃO DISPONIVEL 

3080 PRINT CHARS (/);: PRINT. 
CHARS (7);: GOTO 3000: REM ROTT 
NA NÃO DISPONIVEL 

4000 PRINT CHR$S (7);: PRINT 
CHRS (7);: GOTO 250: REM ROTIN 


A NÃO DISPONIVEL 


5000 IF PG = 1 THEN HGR GoT 
o 5020 

5010  HGR2 

5020 TEXT GOTO 80 

SUDO PO = INT A(O - - "Mm 
)Jj: GoTo 250 

7000 PRINT CHRS$ (7);: PRINT 


CHARS (7);: GOTO 250: REM ROTIN 


A NÃO DISPONIVEL 
9000 IF PEEK (222) 
X = X1:Y = Yl: PRINT 
: RESUME 

9010 PRINT cCHRS (7);: GOTO 25 
O 


= 53 THEN 
CHRS (7); 


10000 DATA PRETO 1,VERDE,VIOL 
ETA, BRANCO, PRETO 2, LARANJA, AZUL 
| BRANCO 2 

10010 DATA NOVA TELA, DESENHAR 
| TRACAR LINHAS, RETANGULO, CIRCUL 
O, ELIPSE,APAGA, MUDAR DE TELA,GR 
AVAR/CARREGAR 


O programa começa perguntando 
que cor de fundo você deseja. Respon- 
da com um número de 0 a 15. A corres- 
pondência de cores está no manual do 
seu micro. Em seguida, a tela gráfica de 
alta resolução será colocada à sua vis- 
ta, mostrando no rodapé as opções dis- 
poníveis. Elas são doze. No entanto, 
apenas algumas estão disponíveis no 
momento. As outras serão apresentadas 
no próximo artigo. 

Inicialmente, temos Desenhar, que 
permite traçar linhas em qualquer dire- 
ção na tela. Selecione a opção colocan- 
do o quadrado sobre a abreviatura Des 
e tecle < RETURN>. Você verá então 
o pequeno cursor na tela. Ele pode ser 
movimentado com as setas do teclado. 
Pressione a barra de espaços no ponto 
em que quiser começar a desenhar: pa- 
ra onde quer que você movimente o cur- 
sor ele deixará um trilho marcado na cor 
de sua escolha. 

Mas, como escolher a cor? É fácil: 
basta teclar, quando dentro de um mó- 
dulo de desenho, uma tecla entre O e E, 
como se fosse uma numeração hexade- 
cimal. Ou seja, os números de O até 9 
funcionam normalmente; para escolher 
cores que tenham código de 11 a 15, use 
as letras de A a E. Para sair desse mó- 
dulo e escolher outra coisa, pressione 
novamente < RETURN >; você obterá, 
assim, controle sobre o quadrado das 
opções. 

A opção Pintar tem o efeito do co- 
mando PAINT do BASIC. Ela preenche- 
rá uma figura com a cor que estiver sen- 
do usada. Deve-se tomar o cuidado de 
usar a mesma cor da periferia da figura 
para que o computador não estrague o 
seu desenho. Outra coisa importante é 
que a figura deve ser totalmente fecha- 
da; senão, o computador pintará toda a 
tela com a cor de sua preferência. 

AXX provoca o apagamento total e 
definitivo do desenho. Portanto, tenha 
cuidado: se você pressionar < RE- 
TURN> com o quadrado sobre essa 
opção, o programa retornará ao início 
e apagará tudo o que foi desenhado. 





10 X=100:Y=100:C0=15 

20 PI=4*ATN(1) 

30 SCREENO:COLOR 15,4,4 

40 CLS:LOCATE 5,5:PRINT"Escolha 
a cor de fundo da página gqráf 

ica (0 a 15):" 

50 INPUT CL:IF CL>15 OR CL<SO TH 

EN PRINT"Valor ilegal!”":-GOTO 50 

60 COLORI5S,CL,CL:SCREENZ:0P=1 
70 OPEN"GRP:"FOR OUTPUT AS 41 

BO PSET(8,166),0 
20 PRINT41,” Apa 


Des Lin Re 


t Cai Cir”:PSET(8,176),0:PRIN 
TAL,” Dis Eli Pin XXX” 

100 CLOSE 

110 GOSUB390:LINE (C,L)-(C+24,L 
+9),15,B 


120 AS=INKEYS: IFAS=""THEN120 
130 GOSUB390 

140 TFAS=CHRS (13) THEN200 

150 LINE (C,L)-(C+24,L+9),CL,B 
160 IFAS=CHAS (29) THENOP=0P-1:IF 
OP<ITHENOP=10 

170 TFAS=CHAS (28) THENOP=0P+1 - IF 
OP>10THENOP=1 

180 GOTO 110 

190 AA=0 

200 ON OP GOTO 480,440,480,480, 
480,480,480,600,7/40,77/0 

210 Xl=X:Yl=Y 

220 AS=INKEYS: IFAS=""THEN220 
230 IFAS>" 0" ANDAS<"9"THENCO=VAL 
(AS) 

240 IFAS>"A"ANDAS<"E"THENCO=ASC 
(AS) -55 

250 IFAS=CHARS (30) THENY=Y1-1 

260 IFAS=CHRS (31) THENY=Y1+1 

270 IFAS=CHRS (28) THENX=X1+1 

280 IFAS=CHRS (29) THENX=X1]-1 

290 IFAS=CHRS (13) THENGOTOI1O 
300 RETURN 

310 TFM>O0THENVPOKEBASE (12) +M+Y1 
MODS, ME: VPOKEBASE (11) +M+Y1IMODB, 
MF 

320, MX=INT(X/B) :MY=INT(Y/8) 

330 M=MY*32+MX:M=M*B 

340 ME=VPEEK (BASE (12) +M+YMODB) 
3150 MF=VPEEK (BASE (11) +M+YMOD8) 
360 VPORKE BASE (12) +M+YMODB, 2" (7 
-XMODB) 

370 VPOKE BASE (11) +M+YMODB, (4+( 
CL=4))*16 

380 RETURN 

390 IFOP</THENC=(0P*5) *BELSEC=( 
0P-6)*5*8 

400 C=€C-26 

410 IFOP<7THENL=164ELSE L=174:P 
SET(C,L),0 

420 RETURN 

430 GOTO 200 

440 IFAA=OTHENGOSUB31O0 

450 GOSUB210:TFAS=" "THENAA=ABS 
(AA-1) 

460 IFAA=ITHENLINE(X,Y)-(X1,Y1) 
«CO 
470 
aBo0 


G0T0440 

GOTO 110 

600 GOTO 110 

740 GOSUB310:GOSUB210:IFAS<>CHR 
5 (32) THEN740 

750 PAINT (X,Y),CO 

760 GOTO 740 

770 GOTO 30 
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PROGRAMAÇÃO DE JOGOS 


Grandes jogadores de baralho (quando programados para isso), 
os computadores não trapaceiam nem se cansam de jogar. 


APLICAÇÕES 


Incorpore rotinas especiais ao seu programa CAD e tire o máximo 
proveito da sofisticação que elas proporcionam. 


PROGRAMAÇÃO BASIC 


Calcule a velocidade de um corpo que cai, aplicando algumas funções 
matemáticas em sua programação BASIC. 





